mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-28 07:45:00 +00:00
* mouse.el (mouse-yank-primary, mouse-yank-secondary): Use insert-for-yank.
Fixes: debbugs:17271
This commit is contained in:
parent
cc4f9c83bc
commit
4991d13037
@ -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):
|
||||
|
@ -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 ()
|
||||
|
Loading…
Reference in New Issue
Block a user