Mercurial > hg > xemacs-beta

diff lisp/prim/faces.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 364816949b59
children cf808b4c4290
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 09:13:58 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 09:15:11 2007 +0200
@@ -1343,7 +1343,7 @@
     (let ((fg (face-foreground 'modeline-buffer-id 'global))
 	  (font (face-font 'modeline-buffer-id 'global)))
       (when (and (null fg) (featurep 'x))
-	(set-face-foreground 'modeline-buffer-id "blue" 'global '(color x)))
+	(set-face-foreground 'modeline-buffer-id "blue4" 'global '(color x)))
       (unless font
 	(when (featurep 'x)
 	  (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x))
@@ -1357,7 +1357,7 @@
     (let ((fg (face-foreground 'modeline-mousable 'global))
 	  (font (face-font 'modeline-mousable 'global)))
       (when (and (null fg) (featurep 'x))
-	(set-face-foreground 'modeline-mousable "red" 'global '(color x)))
+	(set-face-foreground 'modeline-mousable "firebrick" 'global '(color x)))
       (unless font
 	(when (featurep 'x)
 	  (set-face-font 'modeline-mousable [bold] nil '(mono x))
@@ -1370,7 +1370,7 @@
       (when (and (null fg) (featurep 'x))
 	(set-face-foreground 'modeline-mousable-minor-mode
 			     '(((color x) . "green4")
-			       ((color x) . "green")) 'global))))
+			       ((color x) . "forestgreen")) 'global))))
   (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable
 		   nil nil 'append)
   )