Commit e1eb5385 authored by Chong Yidong's avatar Chong Yidong

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

Fixes: debbugs:9894
parent 5d2ece3c
2011-10-29 Chong Yidong <cyd@gnu.org> 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 * textmodes/flyspell.el (flyspell-word): Fix char offset for
forged Ispell output (Bug#7904). forged Ispell output (Bug#7904).
......
...@@ -1133,8 +1133,8 @@ regardless of where you click." ...@@ -1133,8 +1133,8 @@ regardless of where you click."
(defun mouse-yank-primary (click) (defun mouse-yank-primary (click)
"Insert the primary selection at the position clicked on. "Insert the primary selection at the position clicked on.
Move point to the end of the inserted text. Move point to the end of the inserted text, and set mark at
If `mouse-yank-at-point' is non-nil, insert at point beginning. If `mouse-yank-at-point' is non-nil, insert at point
regardless of where you click." regardless of where you click."
(interactive "e") (interactive "e")
;; Give temporary modes such as isearch a chance to turn off. ;; Give temporary modes such as isearch a chance to turn off.
...@@ -1162,9 +1162,10 @@ regardless of where you click." ...@@ -1162,9 +1162,10 @@ regardless of where you click."
;; FIXME: What about xterm-mouse-mode etc.? ;; FIXME: What about xterm-mouse-mode etc.?
(t (t
(x-get-selection 'PRIMARY))))) (x-get-selection 'PRIMARY)))))
(if primary (unless primary
(insert primary) (error "No selection is available"))
(error "No selection is available")))) (push-mark (point))
(insert primary)))
(defun mouse-kill-ring-save (click) (defun mouse-kill-ring-save (click)
"Copy the region between point and the mouse click in the kill ring. "Copy the region between point and the mouse click in the kill ring.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment