# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 857848119 0
# Node ID 37acf21ce6f6c246a8fd0826b0e9377b5b700148
# Parent  b29d903ca993cc22689eb08c5d934b445a76bdfd
(isearch-yank): Handle case when CHUNK is `x-sel'.

diff -r b29d903ca993 -r 37acf21ce6f6 lisp/isearch.el
--- a/lisp/isearch.el	Wed Mar 05 10:52:03 1997 +0000
+++ b/lisp/isearch.el	Sat Mar 08 19:08:39 1997 +0000
@@ -891,10 +891,12 @@
 
 (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