mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 23:51:24 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):

Browse source 
Do not call `x-get-selection' the second time, reuse the value.
This commit is contained in:
Sam Steingold 2010-07-26 15:05:47 -04:00
parent 977105dcbf
commit aa2d4bd343
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-07-26 Sam Steingold <sds@gnu.org>
* mouse.el (mouse-yank-primary, mouse-yank-secondary):
Do not call `x-get-selection' the second time, reuse the value.
2010-07-26 Daiki Ueno <ueno@unixuser.org>
* epa-mail.el (epa-mail-mode-map): Add alternative key bindings

4
lisp/mouse.el
View file

@ -1282,7 +1282,7 @@ regardless of where you click."
(or mouse-yank-at-point (mouse-set-point click))
(let ((primary (x-get-selection 'PRIMARY)))
(if primary
(insert (x-get-selection 'PRIMARY))
(insert primary)
(error "No primary selection"))))
(defun mouse-kill-ring-save (click)
@ -1577,7 +1577,7 @@ regardless of where you click."
(or mouse-yank-at-point (mouse-set-point click))
(let ((secondary (x-get-selection 'SECONDARY)))
(if secondary
(insert (x-get-selection 'SECONDARY))
(insert secondary)
(error "No secondary selection"))))
(defun mouse-kill-secondary ()