comparison lisp/term/x-win.el @ 55343:b925746ed8e7

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

55342:44d086f5e08a

;; Override Paste so it looks at CLIPBOARD first.
(defun x-clipboard-yank ()
  "Insert the clipboard contents, or the last stretch of killed text."
  (interactive)
  (let ((clipboard-text (x-get-selection 'CLIPBOARD))
	(x-select-enable-clipboard t))
    (if (and clipboard-text (> (length clipboard-text) 0))
	(kill-new clipboard-text))
    (yank)))

55343:b925746ed8e7

;; Override Paste so it looks at CLIPBOARD first.
(defun x-clipboard-yank ()
  "Insert the clipboard contents, or the last stretch of killed text."
  (interactive)
  (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))
    (yank)))