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

[Richard M . Stallman]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.135 emacs/lisp/wid-edit.el:1.136
*** emacs/lisp/wid-edit.el:1.135        Sat Jan 29 13:22:21 2005
--- emacs/lisp/wid-edit.el      Sat Jan 29 17:21:12 2005
***************
*** 915,928 ****
                      ;; until we receive a release event.  Highlight/
                      ;; unhighlight the button the mouse was initially
                      ;; on when we move over it.
!                     (let ((track-mouse t))
!                       (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))
!                         (unless (widget-apply button :mouse-down-action event)
                            (while (not (widget-button-release-event-p event))
                              (setq event (read-event)
                                    pos (widget-event-point event))
--- 915,928 ----
                      ;; until we receive a release event.  Highlight/
                      ;; unhighlight the button the mouse was initially
                      ;; 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))
!                       (unless (widget-apply button :mouse-down-action event)
!                         (let ((track-mouse t))
                            (while (not (widget-button-release-event-p event))
                              (setq event (read-event)
                                    pos (widget-event-point event))
***************
*** 937,949 ****
                                                 'mouse-face
                                                 widget-button-pressed-face))
                                (overlay-put overlay 'face face)
!                               (overlay-put overlay 'mouse-face mouse-face))))
  
!                         ;; When mouse is released over the button, run
!                         ;; its action function.
!                         (when (and pos
!                                    (eq (get-char-property pos 'button) 
button))
!                           (widget-apply-action button event))))
                    (overlay-put overlay 'face face)
                    (overlay-put overlay 'mouse-face mouse-face))))
  
--- 937,949 ----
                                                 'mouse-face
                                                 widget-button-pressed-face))
                                (overlay-put overlay 'face face)
!                               (overlay-put overlay 'mouse-face mouse-face)))))
  
!                       ;; When mouse is released over the button, run
!                       ;; its action function.
!                       (when (and pos
!                                  (eq (get-char-property pos 'button) button))
!                         (widget-apply-action button event)))
                    (overlay-put overlay 'face face)
                    (overlay-put overlay 'mouse-face mouse-face))))