diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-01-29 17:21:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-01-29 17:21:12 +0000 |
| commit | 293bf1ab01868ef9064b36c9d212946f563f23a6 (patch) | |
| tree | 6720db64763947c2be11a7edf625c99768b4fdda /lisp/wid-edit.el | |
| parent | 80a80e5f9669dc86b9678abf65590cda5d7a6437 (diff) | |
| download | emacs-293bf1ab01868ef9064b36c9d212946f563f23a6.tar.gz | |
(widget-button-click): Shorten the range of the track-mouse binding.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 16de985fa3c..f89095fd7fc 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -915,14 +915,14 @@ Recommended as a parent keymap for modes using widgets.") ;; 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) + (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,13 +937,13 @@ Recommended as a parent keymap for modes using widgets.") 'mouse-face widget-button-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. - (when (and pos - (eq (get-char-property pos 'button) button)) - (widget-apply-action button event)))) + ;; 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)))) |