From 4991d13037d4154b3c52d1a2f516714fbcf0e6eb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 2 Jul 2014 10:42:00 -0400 Subject: [PATCH] * mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank. Fixes: debbugs:17271 --- lisp/ChangeLog | 5 +++++ lisp/mouse.el | 4 ++-- 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 + + * mouse.el (mouse-yank-primary, mouse-yank-secondary): + Use insert-for-yank (bug#17271). + 2014-07-02 Leo Liu * 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 () -- 2.39.5