Mercurial > hg > xemacs-beta

diff lisp/prim/faces.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 4be1180a9e89
children 8ff55ebd4be9
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 09:15:51 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 09:16:51 2007 +0200
@@ -1265,8 +1265,8 @@
   ;; specified.
   (unless (or (face-differs-from-default-p 'zmacs-region device)
 	      (face-background 'zmacs-region 'global))
-    (set-face-background 'zmacs-region "gray" 'global 'color)
-    (set-face-background 'zmacs-region "gray80" 'global 'grayscale))
+    (set-face-background 'zmacs-region "gray65" 'global 'color)
+    (set-face-background 'zmacs-region "gray65" 'global 'grayscale))
   (unless (or (face-differs-from-default-p 'zmacs-region device)
 	      (face-background-pixmap 'zmacs-region 'global))
     (set-face-background-pixmap 'zmacs-region [nothing] 'global 'color)
@@ -1296,8 +1296,8 @@
   ;; Set the primary-selection color unless already specified.
   (unless (or (face-differs-from-default-p 'primary-selection device)
 	      (face-background 'primary-selection 'global))
-    (set-face-background 'primary-selection "gray" 'global 'color)
-    (set-face-background 'primary-selection "gray80" 'global 'grayscale))
+    (set-face-background 'primary-selection "gray65" 'global 'color)
+    (set-face-background 'primary-selection "gray65" 'global 'grayscale))
   (unless (or (face-differs-from-default-p 'secondary-selection device)
 	      (face-background-pixmap 'primary-selection 'global))
     (set-face-background-pixmap 'primary-selection "gray3" 'global 'mono))