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

Fixes: debbugs:17271

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df299ec1341..d9224d0b747 100644
--- 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 8cb42dfb455..ce691748cac 100644
--- 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 ()