[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5aab1e8: * lisp/isearch.el (isearch-xterm-paste): Use code like i
From: |
Juri Linkov |
Subject: |
master 5aab1e8: * lisp/isearch.el (isearch-xterm-paste): Use code like in 'xterm-paste'. |
Date: |
Sun, 15 Dec 2019 19:18:09 -0500 (EST) |
branch: master
commit 5aab1e83f55ccbf7affc25272f6b1107aa17598c
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* lisp/isearch.el (isearch-xterm-paste): Use code like in 'xterm-paste'.
Add arg 'event' and use it to get pasted text.
This allows pasting text on terminals to the
search string (bug#18727, bug#36950).
---
lisp/isearch.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 4f33427..2928a96 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5aab1e8: * lisp/isearch.el (isearch-xterm-paste): Use code like in 'xterm-paste'.,
Juri Linkov <=