mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(widget-button-click): Don't move point permanently:

Browse source 
Avoid mouse-set-point--instead select the window,
then do save-excursion, then move point.
Specify the buffer for get-char-property.
Don't use `@' in interactive.
This commit is contained in:
Richard M. Stallman 2001-12-02 04:49:43 +00:00
parent 2ed848b01f
commit bc3420db10
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/wid-edit.el
View file

@ -856,17 +856,21 @@ Recommended as a parent keymap for modes using widgets.")
(defun widget-button-click (event)
"Invoke the button that the mouse is pointing at."
(interactive "@e")
(interactive "e")
(if (widget-event-point event)
(let* ((pos (widget-event-point event))
(button (get-char-property pos 'button)))
(start (event-start event))
(button (get-char-property
pos 'button (and (windowp (posn-window start))
(window-buffer (posn-window start))))))
(if button
;; Mouse click on a widget button. Do the following
;; in a save-excursion so that the click on the button
;; doesn't change point.
(save-selected-window
(select-window (posn-window (event-start event)))
(save-excursion
(mouse-set-point event)
(goto-char (posn-point (event-start event)))
(let* ((overlay (widget-get button :button-overlay))
(face (overlay-get overlay 'face))
(mouse-face (overlay-get overlay 'mouse-face)))
@ -907,10 +911,11 @@ Recommended as a parent keymap for modes using widgets.")
(overlay-put overlay 'face face)
(overlay-put overlay 'mouse-face mouse-face))))
(unless (pos-visible-in-window-p (widget-event-point event))
(mouse-set-point event)
(beginning-of-line)
(recenter)))
(unless (pos-visible-in-window-p (widget-event-point event))
(mouse-set-point event)
(beginning-of-line)
(recenter))
)
(let ((up t) command)
;; Mouse click not on a widget button. Find the global