From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Feb 1994 02:53:16 +0000 (+0000)
Subject: (mouse-yank-secondary): Do move point.
X-Git-Tag: emacs-19.34~10052
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50f580011d1792ecbda0284d19bf8fb6e63b7a13;p=emacs.git

(mouse-yank-secondary): Do move point.
(mouse-yank-at-point): New var.
(mouse-yank-at-click, mouse-yank-secondary): Obey tha.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 1f695121d47..a92cb74196c 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -36,6 +36,8 @@
 ;;; Indent track-mouse like progn.
 (put 'track-mouse 'lisp-indent-function 0)
 
+(defvar mouse-yank-at-point nil
+  "*If non-nil, mouse yank commands yank at point instead of at click.")
 
 (defun mouse-delete-window (click)
   "Delete the window you click on.
@@ -356,9 +358,12 @@ The text is saved in the kill ring, as with \\[kill-region]."
 
 (defun mouse-yank-at-click (click arg)
   "Insert the last stretch of killed text at the position clicked on.
-Prefix arguments are interpreted as with \\[yank]."
+Also move point to one end of the text thus inserted (normally the end).
+Prefix arguments are interpreted as with \\[yank].
+If `mouse-yank-at-point' is non-nil, insert at point
+regardless of where you click."
   (interactive "e\nP")
-  (mouse-set-point click)
+  (or mouse-yank-at-point (mouse-set-point click))
   (setq this-command 'yank)
   (yank arg))
 
@@ -647,12 +652,13 @@ This must be bound to a button-down mouse event."
 				 (overlay-end mouse-secondary-overlay)))))))))
 
 (defun mouse-yank-secondary (click)
-  "Insert the secondary selection at the position clicked on."
+  "Insert the secondary 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
+regardless of where you click."
   (interactive "e")
-  (save-excursion
-    (set-buffer (window-buffer (posn-window (event-start click))))
-    (goto-char (posn-point (event-start click)))
-    (insert (x-get-selection 'SECONDARY))))
+  (or mouse-yank-at-point (mouse-set-point click))
+  (insert (x-get-selection 'SECONDARY)))
 
 (defun mouse-kill-secondary ()
   "Kill the text in the secondary selection.