[Emacs-diffs] emacs-24 r117339: * mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank.

[Stefan Monnier]

------------------------------------------------------------
revno: 117339
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17271
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-07-02 10:42:00 -0400
message:
  * mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mouse.el                  mouse.el-20091113204419-o5vbwnq5f7feedwu-123

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-02 05:05:50 +0000
+++ b/lisp/ChangeLog    2014-07-02 14:42:00 +0000
@@ -1,3 +1,8 @@
+2014-07-02  Stefan Monnier  <address@hidden>
+
+       * mouse.el (mouse-yank-primary, mouse-yank-secondary):
+       Use insert-for-yank (bug#17271).
+
 2014-07-02  Leo Liu  <address@hidden>
 
        * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2014-06-20 18:35:04 +0000
+++ b/lisp/mouse.el     2014-07-02 14:42:00 +0000
@@ -1101,7 +1101,7 @@
     (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 @@
   (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 ()