diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-02-14 20:16:04 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-02-14 20:16:04 +0000 |
| commit | e1ec62a59692221b5979d5238272c1fbec31ed06 (patch) | |
| tree | fb93e5cb0b12799500377c92b35e29d2f541215a /lisp/cus-edit.el | |
| parent | d450f2a250afb0997d8f9c4554b02d4d7aa9af50 (diff) | |
* wid-edit.el (widget-button-click): Use :pressed-face property
for overlay face, if it exists.
* cus-edit.el (custom-manual, custom-add-see-also)
(custom-add-parent-links, custom-group-link): Add :pressed-face
property to links.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 763b4b8c57f..0595336c3ed 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1720,6 +1720,7 @@ item in another window.\n\n")) :help-echo "Read the manual entry for this option." :button-face 'custom-link :mouse-face 'highlight + :pressed-face 'highlight :tag "Manual") ;;; The `custom-magic' Widget. @@ -2201,7 +2202,8 @@ Insert PREFIX first if non-nil." (push (widget-create-child-and-convert widget (car links) :button-face 'custom-link - :mouse-face 'highlight) + :mouse-face 'highlight + :pressed-face 'highlight) buttons) (setq links (cdr links)) (cond ((null links) @@ -2247,7 +2249,8 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (push (widget-create-child-and-convert widget (car links) :button-face 'custom-link - :mouse-face 'highlight) + :mouse-face 'highlight + :pressed-face 'highlight) buttons) (setq links (cdr links)) (cond ((null links) @@ -3590,6 +3593,7 @@ restoring it to the state of a face that has never been customized." "Show parent in other window when activated." :button-face 'custom-link :mouse-face 'highlight + :pressed-face 'highlight :help-echo "Create customization buffer for this group." :action 'custom-group-link-action) |