Commit e006fe5a authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(widget-button-click): Wrap with save-excursion

to restore track-mouse in the correct buffer.
parent 3e9f8311
1999-11-08 Markus Rost <rost@ias.edu>
* wid-edit.el (widget-button-click): Wrap with save-excursion
to restore track-mouse in the correct buffer.
1999-11-08 Gerd Moellmann <gerd@gnu.org>
* mail/mh-e.el: Changed maintainer to billcurtis@hotmail.com.
1999-11-08 Peter Kleiweg <kleiweg@let.rug.nl>
* progmodes/ps-mode.el (ps-mode-print-function): Changed default
lpr-command to "lp" for some system-types. (copied from lpr.el
Emacs version 20.2.1).
1999-11-04 Markus Rost <rost@ias.edu>
* simple.el (comment-region): Strip off white space at end of
......
......@@ -928,29 +928,30 @@ This exists as a variable so it can be set locally in certain buffers.")
(mouse-face (overlay-get overlay 'mouse-face)))
(unwind-protect
(let ((track-mouse t))
(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 (button-release-event-p event))
(setq event (widget-read-event)
pos (widget-event-point event))
(if (and pos
(eq (get-char-property pos 'button)
button))
(progn
(overlay-put overlay
'face
widget-button-pressed-face)
(overlay-put overlay
'mouse-face
widget-button-pressed-face))
(overlay-put overlay 'face face)
(overlay-put overlay 'mouse-face mouse-face))))
(when (and pos
(eq (get-char-property pos 'button) button))
(widget-apply-action button event)))
(save-excursion
(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 (button-release-event-p event))
(setq event (widget-read-event)
pos (widget-event-point event))
(if (and pos
(eq (get-char-property pos 'button)
button))
(progn
(overlay-put overlay
'face
widget-button-pressed-face)
(overlay-put overlay
'mouse-face
widget-button-pressed-face))
(overlay-put overlay 'face face)
(overlay-put overlay 'mouse-face mouse-face))))
(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)))
(let ((up t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment