Mercurial > hg > xemacs-beta

diff lisp/prim/faces.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children 441bb1e64a06
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 08:50:31 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 08:51:03 2007 +0200
@@ -1360,7 +1360,7 @@
 	    (font (face-font 'modeline-buffer-id 'global)))
 	(and (featurep 'x)
 	     (or fg
-		 (set-face-foreground 'modeline-buffer-id "blue" 'global
+		 (set-face-foreground 'modeline-buffer-id "blue4" 'global
 				      '(color x))))
 	(if font
 	    nil
@@ -1379,7 +1379,7 @@
 	    (font (face-font 'modeline-mousable 'global)))
 	(and (featurep 'x)
 	     (or fg
-		 (set-face-foreground 'modeline-mousable "red" 'global
+		 (set-face-foreground 'modeline-mousable "firebrick" 'global
 				      '(color x))))
 	(if font
 	    nil
@@ -1397,7 +1397,8 @@
 	     (or fg
 		 (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)
   )