mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* lisp/isearch.el (isearch-xterm-paste): Use code like in 'xterm-paste'.

Browse Source 
Add arg 'event' and use it to get pasted text.
This allows pasting text on terminals to the
search string (bug#18727, bug#36950).
This commit is contained in:
Juri Linkov 2019-12-16 02:18:00 +02:00
parent 7254b63462
commit 5aab1e83f5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/isearch.el
View File

@ -2508,10 +2508,12 @@ is bound to outside of Isearch."
(declare-function xterm--pasted-text "term/xterm" ())
(defun isearch-xterm-paste ()
(defun isearch-xterm-paste (event)
"Pull terminal paste into search string."
(interactive)
(isearch-yank-string (xterm--pasted-text)))
(interactive "e")
(when (eq (car-safe event) 'xterm-paste)
(let ((pasted-text (nth 1 event)))
(isearch-yank-string pasted-text))))
(defun isearch-yank-internal (jumpform)
"Pull the text from point to the point reached by JUMPFORM.