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

* lisp/mouse.el (mouse-yank-primary): Push the mark.

Browse source 
Fixes: debbugs:9894
This commit is contained in:
Chong Yidong 2011-10-29 14:09:02 +08:00
parent 5d2ece3cd2
commit e1eb5385bb
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2011-10-29 Chong Yidong <cyd@gnu.org>
* mouse.el (mouse-yank-primary): Push the mark (Bug#9894).
* textmodes/flyspell.el (flyspell-word): Fix char offset for
forged Ispell output (Bug#7904).

11
lisp/mouse.el
View file

@ -1133,8 +1133,8 @@ regardless of where you click."
(defun mouse-yank-primary (click)
"Insert the primary selection at the position clicked on.
Move point to the end of the inserted text.
If `mouse-yank-at-point' is non-nil, insert at point
Move point to the end of the inserted text, and set mark at
beginning. If `mouse-yank-at-point' is non-nil, insert at point
regardless of where you click."
(interactive "e")
;; Give temporary modes such as isearch a chance to turn off.
@ -1162,9 +1162,10 @@ regardless of where you click."
;; FIXME: What about xterm-mouse-mode etc.?
(t
(x-get-selection 'PRIMARY)))))
(if primary
(insert primary)
(error "No selection is available"))))
(unless primary
(error "No selection is available"))
(push-mark (point))
(insert primary)))
(defun mouse-kill-ring-save (click)
"Copy the region between point and the mouse click in the kill ring.