Mercurial > hg > xemacs-beta

diff lisp/gui.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 262b8bb4a523
line wrap: on
line diff
--- a/lisp/gui.el	Mon Aug 13 10:05:01 2007 +0200
+++ b/lisp/gui.el	Mon Aug 13 10:05:51 2007 +0200
@@ -89,8 +89,9 @@
 (make-face 'gui-button-face "Face used for gui buttons")
 (if (not (face-differs-from-default-p 'gui-button-face))
     (progn
-      (set-face-background 'gui-button-face "grey75")
-      (set-face-foreground 'gui-button-face "black")))
+      (set-face-reverse-p 'gui-button-face t)
+      (set-face-background 'gui-button-face "grey75" nil '(x color))
+      (set-face-foreground 'gui-button-face "black" nil '(x color))))
 
 (defun make-gui-button (string &optional action user-data)
   "Make a GUI button whose label is STRING and whose action is ACTION.