procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mwheel-scroll): Deactivate any temporarily active region if point

Browse source 
moves.
This commit is contained in:
Chong Yidong 2008-04-08 05:38:39 +00:00
parent 18cba22a62
commit 05786f2d93
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mwheel.el
View file

@ -190,6 +190,10 @@ This should only be bound to mouse buttons 4 and 5."
(prog1
(selected-window)
(select-window (mwheel-event-window event)))))
(buffer (window-buffer curwin))
(opoint (with-current-buffer buffer
(when (eq (car-safe transient-mark-mode) 'only)
(point))))
(mods
(delq 'click (delq 'double (delq 'triple (event-modifiers event)))))
(amt (assoc mods mouse-wheel-scroll-amount)))
@ -224,7 +228,13 @@ This should only be bound to mouse buttons 4 and 5."
;; Make sure we do indeed scroll to the end of the buffer.
(end-of-buffer (while t (scroll-up)))))
(t (error "Bad binding in mwheel-scroll"))))
(if curwin (select-window curwin))))
(if curwin (select-window curwin)))
;; If there is a temporarily active region, deactivate it iff
;; scrolling moves point.
(when opoint
(with-current-buffer buffer
(when (/= opoint (point))
(deactivate-mark)))))
(when (and mouse-wheel-click-event mouse-wheel-inhibit-click-time)
(if mwheel-inhibit-click-event-timer
(cancel-timer mwheel-inhibit-click-event-timer)