Commit e43a720f authored by Jan Djärv's avatar Jan Djärv
Browse files

* term/x-win.el (x-clipboard-yank): Don't exit on error from

  x-get-selection.
parent ab2d724b
2004-05-03 Jan D. <jhd@gaffa.localdomain>
* term/x-win.el (x-clipboard-yank): Don't exit on error from
x-get-selection.
2004-05-03 Jason Rumney <jasonr@gnu.org>
* makefile.nt: Remove.
......
......@@ -2459,7 +2459,10 @@ order until succeed.")
(defun x-clipboard-yank ()
"Insert the clipboard contents, or the last stretch of killed text."
(interactive)
(let ((clipboard-text (x-get-selection 'CLIPBOARD))
(let ((clipboard-text
(condition-case nil
(x-get-selection 'CLIPBOARD)
(error nil)))
(x-select-enable-clipboard t))
(if (and clipboard-text (> (length clipboard-text) 0))
(kill-new clipboard-text))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment