# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1139948164 0
# Node ID 93b583aac002b1ca74ac16287daa77b02ddc1081
# Parent  ca6b93e0f08b2996caad084eb12fb451b2660f52
	* 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.

diff -r ca6b93e0f08b -r 93b583aac002 lisp/ChangeLog
--- 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.
 
diff -r ca6b93e0f08b -r 93b583aac002 lisp/cus-edit.el
--- 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)
 
diff -r ca6b93e0f08b -r 93b583aac002 lisp/wid-edit.el
--- 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)))))