procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cua-paste): Handle x-clipboard-yank.

Browse source 
(cua--init-keymaps): Remap x-clipboard-yank to cua-paste.
This commit is contained in:
Kim F. Storm 2007-02-24 21:52:43 +00:00
parent b0943f48d9
commit ed8bc9f8e4
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emulation/cua-base.el
View file

@ -930,6 +930,8 @@ If global mark is active, copy from register or one character."
(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 @@ If ARG is the atom `-', scroll upward by nearly full screen."
;; 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