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

* mouse.el (mouse-drag-track): Deactivate the mark before popping.

Browse source
This commit is contained in:
Chong Yidong 2012-06-23 20:48:24 +08:00
parent 9651255509
commit 05e89feafd
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2012-06-23 Chong Yidong <cyd@gnu.org>
* mouse.el (mouse-drag-track): Deactivate the mark before popping.
* progmodes/python.el (python-skeleton-define): Mark abbrevs as
system abbrevs.

13
lisp/mouse.el
View file

@ -884,10 +884,15 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
(copy-region-as-kill (mark) (point)))))
;; Otherwise, run binding of terminating up-event.
(cond
(do-multi-click (goto-char start-point))
(moved-off-start (deactivate-mark))
(t (pop-mark)))
(setq foo (list (window-buffer (selected-window))
(current-buffer)))
(if do-multi-click
(goto-char start-point)
(deactivate-mark)
(unless moved-off-start
(pop-mark)))
(when (and (functionp fun)
(= start-hscroll (window-hscroll start-window))
;; Don't run the up-event handler if the window