diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-03-08 19:08:39 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-03-08 19:08:39 +0000 |
| commit | fd543be59d1056c9ae4c887ef6a1450f93a1b28f (patch) | |
| tree | c1c8bb4674da44ec824923a8b386626f7abe657f /lisp/isearch.el | |
| parent | a78c106de9eb59fdaf16d4be44c3bd803803fe33 (diff) | |
| download | emacs-fd543be59d1056c9ae4c887ef6a1450f93a1b28f.tar.gz | |
(isearch-yank): Handle case when CHUNK is `x-sel'.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |