[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100910: * lisp/mouse.el (mouse-yank-
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100910: * lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary): |
Date: |
Mon, 26 Jul 2010 15:05:47 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100910
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Mon 2010-07-26 15:05:47 -0400
message:
* lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):
Do not call `x-get-selection' the second time, reuse the value.
modified:
lisp/ChangeLog
lisp/mouse.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-07-26 05:22:13 +0000
+++ b/lisp/ChangeLog 2010-07-26 19:05:47 +0000
@@ -1,3 +1,8 @@
+2010-07-26 Sam Steingold <address@hidden>
+
+ * 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 <address@hidden>
* epa-mail.el (epa-mail-mode-map): Add alternative key bindings
=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el 2010-07-17 20:21:51 +0000
+++ b/lisp/mouse.el 2010-07-26 19:05:47 +0000
@@ -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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100910: * lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):,
Sam Steingold <=