Commit e1ec62a5 authored by Chong Yidong's avatar Chong Yidong
Browse files

* 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.
parent d450f2a2
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.
 
......
......@@ -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)
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment