* mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank.

Fixes: debbugs:17271

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df299ec13416330744bd42542d5ae867f4b5ca1f..d9224d0b747072445c611fbb9decbf9d83f5c34a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mouse.el (mouse-yank-primary, mouse-yank-secondary):
+       Use insert-for-yank (bug#17271).
+
 2014-07-02  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8cb42dfb4556bb795aa6c456354c6be085c1567d..ce691748cac6dfd0da76dc2f8dbc08189b0ef3a3 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1101,7 +1101,7 @@ regardless of where you click."
     (unless primary
       (error "No selection is available"))
     (push-mark (point))
-    (insert primary)))
+    (insert-for-yank primary)))
 
 (defun mouse-kill-ring-save (click)
   "Copy the region between point and the mouse click in the kill ring.
@@ -1383,7 +1383,7 @@ regardless of where you click."
   (or mouse-yank-at-point (mouse-set-point click))
   (let ((secondary (x-get-selection 'SECONDARY)))
     (if secondary
-        (insert secondary)
+        (insert-for-yank secondary)
       (error "No secondary selection"))))
 
 (defun mouse-kill-secondary ()