comparison lisp/isearch.el @ 17139:37acf21ce6f6

(isearch-yank): Handle case when CHUNK is `x-sel'.

17138:b29d903ca993

  (isearch-update))


(defun isearch-yank (chunk)
  ;; Helper for isearch-yank-word and isearch-yank-line
  ;; CHUNK should be word, line or kill.
  (let ((string (cond
                 ((eq chunk 'kill)
                  (current-kill 0))
                 (t
		  (save-excursion
		    (and (not isearch-forward) isearch-other-end
			 (goto-char isearch-other-end))
		    (buffer-substring

17139:37acf21ce6f6

  (isearch-update))


(defun isearch-yank (chunk)
  ;; Helper for isearch-yank-word and isearch-yank-line
  ;; 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
			 (goto-char isearch-other-end))
		    (buffer-substring