(mouse-yank-primary): New function (almost same as mouse-yank-secondary).

2 files changed, 27 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cca6ee0b296..27a302d7d01 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2007-12-25  Richard Stallman  <rms@gnu.org>
+
+        * simple.el (select-active-regions): New option.
+        (set-mark): Obey it.
+
+2007-12-25  David Golden  <david.delaharpe.golden@gmail.com>  (tiny change)
+
+        * term/x-win.el (x-select-enable-primary): New option.
+        (x-select-text, x-cut-buffer-or-selection-value): Obey it.
+
+        * mouse.el (mouse-yank-primary): New function (almost same
+        as mouse-yank-secondary).
+
 2007-12-25  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * calculator.el:
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 39882ca33c0..8802aa98317 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1358,6 +1358,20 @@ regardless of where you click."
   (setq mouse-selection-click-count 0)
   (yank arg))
 
+(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
+regardless of where you click."
+  (interactive "e")
+  ;; Give temporary modes such as isearch a chance to turn off.
+  (run-hooks 'mouse-leave-buffer-hook)
+  (or mouse-yank-at-point (mouse-set-point click))
+  (let ((primary (x-get-selection 'PRIMARY)))
+    (if primary
+        (insert (x-get-selection 'PRIMARY))
+      (error "No primary selection"))))
+
 (defun mouse-kill-ring-save (click)
   "Copy the region between point and the mouse click in the kill ring.
 This does not delete the region; it acts like \\[kill-ring-save]."