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

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/09/18 15:39:50

Index: wid-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/wid-edit.el,v
retrieving revision 1.166
retrieving revision 1.167
diff -u -b -r1.166 -r1.167
--- wid-edit.el 16 Feb 2006 15:58:32 -0000      1.166
+++ wid-edit.el 18 Sep 2006 15:39:50 -0000      1.167
@@ -959,6 +959,9 @@
                                  (push event unread-command-events)
                                  (setq event oevent)
                                  (throw 'button-press-cancelled t))
+                               (unless (or (integerp event)
+                                           (memq (car event) '(switch-frame 
select-window))
+                                           (eq (car event) 
'scroll-bar-movement))
                                (setq pos (widget-event-point event))
                                (if (and pos
                                         (eq (get-char-property pos 'button)
@@ -967,7 +970,7 @@
                                      (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)))))
+                                   (overlay-put overlay 'mouse-face 
mouse-face))))))
 
                          ;; When mouse is released over the button, run
                          ;; its action function.