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

(mouse-show-mark): Handle switch-frame events in the loop.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-08 09:47:23 +00:00
parent 5604f9a3e7
commit 4e2aade124
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/mouse.el
View File

@ -759,12 +759,14 @@ If DIR is positive skip forward; if negative, skip backward."
(throw 'mouse-show-mark t)))))
(move-overlay mouse-drag-overlay (point) (mark t))
(catch 'mouse-show-mark
;; In this loop, read and execute scroll bar events.
;; Otherwise, if we
;; In this loop, execute scroll bar and switch-frame events.
;; Also ignore down-events that are undefined.
(while (progn (setq event (read-event))
(setq events (append events (list event)))
(setq key (apply 'vector events))
(or (and (consp event)
(eq (car event) 'switch-frame))
(and (consp event)
(eq (posn-point (event-end event))
'vertical-scroll-bar))
(and (memq 'down (event-modifiers event))
@ -772,8 +774,9 @@ If DIR is positive skip forward; if negative, skip backward."
(not (mouse-undouble-last-event events))
(not (member key mouse-region-delete-keys)))))
(and (consp event)
(eq (posn-point (event-end event))
'vertical-scroll-bar)
(or (eq (car event) 'switch-frame)
(eq (posn-point (event-end event))
'vertical-scroll-bar))
(let ((keys (vector 'vertical-scroll-bar event)))
(and (key-binding keys)
(progn