Mercurial > emacs
changeset 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 | ac27bc2873c9 |
| children | 48d2cc2834b4 |
| files | lisp/ChangeLog lisp/cus-edit.el lisp/cus-theme.el |
| diffstat | 3 files changed, 28 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Dec 31 15:29:39 2005 +0000 +++ b/lisp/ChangeLog Sat Dec 31 16:26:01 2005 +0000 @@ -1,3 +1,11 @@ +2005-12-31 Chong Yidong <cyd@stupidchicken.com> + + * 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. + 2005-12-31 Eli Zaretskii <eliz@gnu.org> * progmodes/gud.el (gud-display-line): Support hl-line in the
--- a/lisp/cus-edit.el Sat Dec 31 15:29:39 2005 +0000 +++ b/lisp/cus-edit.el Sat Dec 31 16:26:01 2005 +0000 @@ -1405,6 +1405,9 @@ (defvar custom-button nil "Face used for buttons in customization buffers.") +(defvar custom-button-mouse nil + "Mouse face used for buttons in customization buffers.") + (defvar custom-button-pressed nil "Face used for pressed buttons in customization buffers.") @@ -1419,6 +1422,8 @@ (custom-set-default variable value) (setq custom-button (if value 'custom-button 'custom-button-unraised)) + (setq custom-button-mouse + (if value 'custom-button-mouse 'highlight)) (setq custom-button-pressed (if value 'custom-button-pressed @@ -1960,6 +1965,16 @@ ;; backward-compatibility alias (put 'custom-button-face 'face-alias 'custom-button) +(defface custom-button-mouse + '((((type x w32 mac) (class color)) + (:box (:line-width 2 :style released-button) + :background "grey90" :foreground "black")) + (t + nil)) + "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil." + :version "22.1" + :group 'custom-faces) + (defface custom-button-unraised '((((min-colors 88) (class color) (background light)) :foreground "blue1" :underline t) @@ -1975,6 +1990,9 @@ (setq custom-button (if custom-raised-buttons 'custom-button 'custom-button-unraised)) +(setq custom-button-mouse + (if custom-raised-buttons 'custom-button-mouse 'highlight)) + (defface custom-button-pressed '((((type x w32 mac) (class color)) (:box (:line-width 2 :style pressed-button) @@ -4407,8 +4425,7 @@ (make-local-variable 'widget-button-face) (setq 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 possible, use relief for buttons, not bracketing. This test ;; may not be optimal.
--- 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) "")