Mercurial > emacs
changeset 68892:93b583aac002
* 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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 14 Feb 2006 20:16:04 +0000 |
| parents | ca6b93e0f08b |
| children | 06f938e505d7 |
| files | lisp/ChangeLog lisp/cus-edit.el lisp/wid-edit.el |
| diffstat | 3 files changed, 19 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 14 19:54:25 2006 +0000 +++ b/lisp/ChangeLog Tue Feb 14 20:16:04 2006 +0000 @@ -1,5 +1,12 @@ 2006-02-14 Chong Yidong <cyd@stupidchicken.com> + * 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. + * files.el (hack-local-variables): Remove ignored variables before checking if any variables need setting.
--- a/lisp/cus-edit.el Tue Feb 14 19:54:25 2006 +0000 +++ b/lisp/cus-edit.el Tue Feb 14 20:16:04 2006 +0000 @@ -1720,6 +1720,7 @@ :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 @@ (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 @@ (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 @@ "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)
--- a/lisp/wid-edit.el Tue Feb 14 19:54:25 2006 +0000 +++ b/lisp/wid-edit.el Tue Feb 14 20:16:04 2006 +0000 @@ -929,6 +929,8 @@ (save-excursion (goto-char (posn-point (event-start event))) (let* ((overlay (widget-get button :button-overlay)) + (pressed-face (or (widget-get button :pressed-face) + widget-button-pressed-face)) (face (overlay-get overlay 'face)) (mouse-face (overlay-get overlay 'mouse-face))) (unwind-protect @@ -938,10 +940,8 @@ ;; on when we move over it. (save-excursion (when face ; avoid changing around image - (overlay-put overlay - 'face widget-button-pressed-face) - (overlay-put overlay - 'mouse-face widget-button-pressed-face)) + (overlay-put overlay 'face pressed-face) + (overlay-put overlay 'mouse-face pressed-face)) (unless (widget-apply button :mouse-down-action event) (let ((track-mouse t)) (while (not (widget-button-release-event-p event)) @@ -951,12 +951,8 @@ (eq (get-char-property pos 'button) button)) (when face - (overlay-put overlay - 'face - widget-button-pressed-face) - (overlay-put overlay - 'mouse-face - widget-button-pressed-face)) + (overlay-put overlay 'face pressed-face) + (overlay-put overlay 'mouse-face pressed-face)) (overlay-put overlay 'face face) (overlay-put overlay 'mouse-face mouse-face)))))