1. xemacs
  2. dired

Source

dired / dired-faces.el

Diff from to

File dired-faces.el

  • Ignore whitespace
   :group 'dired-faces)
 
 
-(defface dired-face-marked '((((class color))
-			       (:background "PaleVioletRed"))
-			     (t (:underline t)))
+(defface dired-face-marked '((((type x pm mswindows)
+			       (class color))
+			      (:background "PaleVioletRed"))
+			     (((type tty)
+			       (class color mono))
+			      (:bold t)))
   "Face used for marked files."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-flagged '((((class color))
+(defface dired-face-flagged '((((type x pm mswindows)
+				(class color)
+				(background light))
 			       (:background "LightSlateGray"))
-			      (t (:underline t)))
+			      (((type x pm mswindows)
+				(class color)
+				(background dark))
+			       (:background "DarkSlateGray"
+				:underline t)))
   "Face used for flagged files."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-directory '((t (:bold t)))
+(defface dired-face-directory '((((type x pm mswindows tty)
+				  (class color))
+				 (:bold t)))
   "Face used for directories."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-executable '((((class color))
-				  (:foreground "SeaGreen"))
-				 (t (:bold t)))
+(defface dired-face-executable '((((type x pm mswindows)
+				   (class color)
+				   (background light))
+				  (:foreground "green4"))
+				 (((type tty)
+				   (class color))
+				  (:foreground "green"))
+				 (((type x pm mswindows)
+				   (class color)
+				   (background dark))
+				  (:foreground "green"))
+				 (t
+				  (:bold t)))
   "Face used for executables."
-  :group 'dired-faces)
+  :group 'dired)
 
 (defface dired-face-setuid '((((class color))
 			      (:foreground "Red"))
-			     (t (:bold t)))
+			     (t
+			      (:bold t)))
   "Face used for setuid executables."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-boring '((((class color))
-			      (:foreground "Gray65"))
-			     (((class grayscale))
-			      (:foreground "Gray65")))
+(defface dired-face-boring '((((type x pm mswindows)
+			       (class color grayscale)
+			       (background light))
+			      (:foreground "gray30"))
+			     (((type x pm mswindows)
+			       (class color grayscale)
+			       (background dark))
+			      (:foreground "gray65"))
+			     (((type tty)
+			       (class color)
+			       (background dark))
+			      (:foreground "white"
+			       :dim t))
+			     (((type tty)
+			       (class color)
+			       (background light))
+			      (:foreground "gray65")))
   "Face used for unimportant files."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-permissions '((((type tty))
+(defface dired-face-permissions '((((type tty)
+				    (class color))
 				   (:foreground "black"
-				    :background "white"))
-				  (t
-				    (:background "grey75"
-				     :foreground "black")))
+				    :background "cyan"))
+				  (((type x pm mswindows)
+				    (class color))
+				   (:foreground "black"
+				    :background "grey75")))
   "Face used for interactive permissions."
-  :group 'dired-faces)
+  :group 'dired)
 
 (defface dired-face-header '((t (:background "grey75"
                                  :foreground "black")))
 
 (defface dired-face-socket '((((class color))
 			      (:foreground "magenta"))
-			     (t (:bold nil)))
+			     (t
+			      (:bold nil)))
   "Face used to indicate sockets."
-  :group 'dired-faces)
+  :group 'dired)
 
-(defface dired-face-symlink  '((((class color))
-			      (:foreground "cyan"))
-			     (t (:bold t)))
+(defface dired-face-symlink  '((((type x pm mswindows)
+				 (class color)
+				 (background light))
+				(:foreground "cyan4"))
+			       (((class color))
+				(:foreground "cyan"))
+			       (t
+				(:bold t)))
   "Face used to indicate symbolic links."
-  :group 'dired-faces)
+  :group 'dired)
 
 ;;; end of dired-faces.el