Mercurial > emacs
changeset 109552:9eac3b0c2884
* lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):
Do not call `x-get-selection' the second time, reuse the value.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 26 Jul 2010 15:05:47 -0400 |
| parents | 6d00127d1b3d |
| children | a4b9fa0b861b 4a3ef4f17f07 |
| files | lisp/ChangeLog lisp/mouse.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 26 10:11:43 2010 -0700 +++ b/lisp/ChangeLog Mon Jul 26 15:05:47 2010 -0400 @@ -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
--- a/lisp/mouse.el Mon Jul 26 10:11:43 2010 -0700 +++ b/lisp/mouse.el Mon Jul 26 15:05:47 2010 -0400 @@ -1282,7 +1282,7 @@ (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 @@ (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 ()