mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
to restore track-mouse in the correct buffer.
This commit is contained in:
Gerd Moellmann 1999-11-09 13:43:40 +00:00
parent 3e9f8311f9
commit e006fe5ab6
2 changed files with 39 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,3 +1,18 @@
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

47
lisp/wid-edit.el
View File

@ -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)