andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(widget-button-click): Shorten the range of the track-mouse binding.

Browse source
This commit is contained in:
Richard M. Stallman 2005-01-29 17:21:12 +00:00
parent c6c7dc0349
commit 6f95a83518
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/wid-edit.el
View file

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