Mercurial > emacs
diff lisp/emulation/cua-base.el @ 76132:0d644f70ff05
(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 | cfbd9931b493 |
children | ac0efac52065 d59242324437 edf631bdbb7a dd7c098af727 |
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