[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Chong Yidong]

Index: emacs/lisp/wid-edit.el
diff -u emacs/lisp/wid-edit.el:1.163 emacs/lisp/wid-edit.el:1.164
--- emacs/lisp/wid-edit.el:1.163        Mon Feb  6 14:33:35 2006
+++ emacs/lisp/wid-edit.el      Tue Feb 14 20:16:04 2006
@@ -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)))))