From fd543be59d1056c9ae4c887ef6a1450f93a1b28f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 8 Mar 1997 19:08:39 +0000 Subject: [PATCH] (isearch-yank): Handle case when CHUNK is `x-sel'. --- lisp/isearch.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 28e2c1884b2..f2536570e98 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -891,10 +891,12 @@ If no previous match was done, just beep." (defun isearch-yank (chunk) ;; Helper for isearch-yank-word and isearch-yank-line - ;; CHUNK should be word, line or kill. + ;; CHUNK should be word, line, kill, or x-sel. (let ((string (cond ((eq chunk 'kill) (current-kill 0)) + ((eq chunk 'x-sel) + (x-get-selection)) (t (save-excursion (and (not isearch-forward) isearch-other-end -- 2.39.5