Function: xterm-paste
xterm-paste is an interactive and byte-compiled function defined in
xterm.el.gz.
Signature
(xterm-paste EVENT)
Documentation
Handle the start of a terminal paste operation.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/term/xterm.el.gz
(defun xterm-paste (event)
"Handle the start of a terminal paste operation."
(interactive "e")
(unless (eq (car-safe event) 'xterm-paste)
(error "xterm-paste must be found to xterm-paste event"))
(let ((pasted-text (nth 1 event)))
(if xterm-store-paste-on-kill-ring
;; Put the text onto the kill ring and then insert it into the
;; buffer.
(let ((interprogram-paste-function (lambda () pasted-text)))
(yank))
;; Insert the text without putting it onto the kill ring.
(push-mark)
(insert-for-yank pasted-text))))