diff lisp/cus-theme.el @ 67961:52f526ce11f6

* cus-edit.el (custom-button-mouse): New variable. (custom-button-mouse): New face. (custom-raised-buttons, custom-mode): Use it. * cus-theme.el (custom-new-theme-mode): Use custom-button-mouse.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 31 Dec 2005 16:26:01 +0000
parents 1bae1f8d1fd0
children a711a44049e2
line wrap: on
line diff
--- a/lisp/cus-theme.el	Sat Dec 31 15:29:39 2005 +0000
+++ b/lisp/cus-theme.el	Sat Dec 31 16:26:01 2005 +0000
@@ -50,8 +50,7 @@
   (set (make-local-variable 'widget-documentation-face) 'custom-documentation)
   (set (make-local-variable 'widget-button-face) custom-button)
   (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
-  (if custom-raised-buttons
-      (set (make-local-variable 'widget-mouse-face) custom-button))
+  (set (make-local-variable 'widget-mouse-face) custom-button-mouse)
   (when custom-raised-buttons
     (set (make-local-variable 'widget-push-button-prefix) "")
     (set (make-local-variable 'widget-push-button-suffix) "")