mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-undouble-last-event): Return nil if the event

Browse source 
is not double or triple to start with.
(mouse-show-mark): Handle scroll-bar events here.
This commit is contained in:
Richard M. Stallman 1997-05-27 22:52:31 +00:00
parent 3efc86effb
commit 397a88f3c9
1 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/mouse.el
View file

@ -732,14 +732,16 @@ If DIR is positive skip forward; if negative, skip backward."
(last (nthcdr index events))
(event (car last))
(basic (event-basic-type event))
(modifiers (delq 'double (delq 'triple (copy-sequence (event-modifiers event)))))
(old-modifiers (event-modifiers event))
(modifiers (delq 'double (delq 'triple (copy-sequence old-modifiers))))
(new
(if (consp event)
(cons (event-convert-list (nreverse (cons basic modifiers)))
(cons (event-convert-list (nreverse (cons basic old-modifiers)))
(cdr event))
event)))
(setcar last new)
(if (key-binding (apply 'vector events))
(if (and (not (equal modifiers old-modifiers))
(key-binding (apply 'vector events)))
t
(setcar last event)
nil)))
@ -765,13 +767,27 @@ 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
(while (progn (setq event (read-event))
(setq events (append events (list event)))
(setq key (apply 'vector events))
(and (memq 'down (event-modifiers event))
(not (key-binding key))
(not (member key mouse-region-delete-keys))
(not (mouse-undouble-last-event events))))))
(or (and (consp event)
(eq (posn-point (event-end event))
'vertical-scroll-bar))
(and (memq 'down (event-modifiers event))
(not (key-binding key))
(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)
(let ((keys (vector 'vertical-scroll-bar event)))
(and (key-binding keys)
(progn
(call-interactively (key-binding keys)
nil keys)
(setq events nil)))))))
;; If we lost the selection, just turn off the highlighting.
(if ignore
nil