Mercurial > emacs
diff lisp/mouse.el @ 103949:d7999ea3bbc2
* mouse.el (mouse-yank-primary): If select-active-regions is non-nil,
deactivate the mark before insertion.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 17 Jul 2009 23:24:54 +0000 |
parents | 37177e1f2fcb |
children | 6d93a06037ee |
line wrap: on
line diff
--- a/lisp/mouse.el Fri Jul 17 19:43:49 2009 +0000 +++ b/lisp/mouse.el Fri Jul 17 23:24:54 2009 +0000 @@ -1387,6 +1387,10 @@ (interactive "e") ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) + (when select-active-regions + ;; Without this, confusing things happen upon e.g. inserting into + ;; the middle of an active region. + (deactivate-mark t)) (or mouse-yank-at-point (mouse-set-point click)) (let ((primary (x-get-selection 'PRIMARY))) (if primary