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

* lisp/emulation/cua-base.el (cua-paste): Quieten compilation.

Browse source
This commit is contained in:
Glenn Morris 2018-03-15 20:20:24 -04:00
parent 0e2984a7f4
commit 23f139e72a
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -852,8 +852,6 @@ With numeric prefix arg, copy to register 0-9 instead."
(if (fboundp 'cua--cancel-rectangle)
(cua--cancel-rectangle)))
(declare-function x-clipboard-yank "../term/x-win" ())
(put 'cua-paste 'delete-selection 'yank)
(defun cua-paste (arg)
"Paste last cut or copied region or rectangle.
@ -884,10 +882,8 @@ If global mark is active, copy from register or one character."
((consp regtxt) (cua--insert-rectangle regtxt))
((stringp regtxt) (insert-for-yank regtxt))
(t (message "Unknown data in register %c" cua--register))))
((eq this-original-command 'clipboard-yank)
(clipboard-yank))
((eq this-original-command 'x-clipboard-yank)
(x-clipboard-yank))
((memq this-original-command '(clipboard-yank x-clipboard-yank))
(funcall this-original-command))
(t (yank arg)))))))