mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* wid-edit.el (widget-button-click): Use :pressed-face property

Browse Source 
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.
This commit is contained in:
Chong Yidong 2006-02-14 20:16:04 +00:00
parent d450f2a250
commit e1ec62a596
3 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

8
lisp/cus-edit.el
View File

@ -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)

16
lisp/wid-edit.el
View File

@ -929,6 +929,8 @@ Recommended as a parent keymap for modes using widgets.")
(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 @@ Recommended as a parent keymap for modes using widgets.")
;; 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 @@ Recommended as a parent keymap for modes using widgets.")
(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)))))