Mercurial > emacs

changeset 76132:0d644f70ff05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-paste): Handle x-clipboard-yank. (cua--init-keymaps): Remap x-clipboard-yank to cua-paste.
author Kim F. Storm <storm@cua.dk>
date Sat, 24 Feb 2007 21:52:43 +0000
parents d9413419f720
children 995b45abe69d
files lisp/emulation/cua-base.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Sat Feb 24 21:52:24 2007 +0000
+++ b/lisp/emulation/cua-base.el	Sat Feb 24 21:52:43 2007 +0000
@@ -930,6 +930,8 @@
 	  (if arg (goto-char pt))))
        ((eq this-original-command 'clipboard-yank)
 	(clipboard-yank))
+       ((eq this-original-command 'x-clipboard-yank)
+	(x-clipboard-yank))
        (t (yank arg)))))))
 
 
@@ -1406,6 +1408,7 @@
   ;; replace region with rectangle or element on kill ring
   (define-key cua-global-keymap [remap yank]		'cua-paste)
   (define-key cua-global-keymap [remap clipboard-yank]	'cua-paste)
+  (define-key cua-global-keymap [remap x-clipboard-yank] 'cua-paste)
   ;; replace current yank with previous kill ring element
   (define-key cua-global-keymap [remap yank-pop]		'cua-paste-pop)
   ;; set mark