From: Karl Heuer Date: Sat, 8 Mar 1997 19:08:39 +0000 (+0000) Subject: (isearch-yank): Handle case when CHUNK is `x-sel'. X-Git-Tag: emacs-20.1~2806 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd543be59d1056c9ae4c887ef6a1450f93a1b28f;p=emacs.git (isearch-yank): Handle case when CHUNK is `x-sel'. --- 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