diff options
| -rw-r--r-- | lisp/isearch.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 41350c2d303..1835469bb2c 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -2089,19 +2089,14 @@ If optional ARG is non-nil, pull in the next ARG characters." | |||
| 2089 | (interactive "p") | 2089 | (interactive "p") |
| 2090 | (isearch-yank-internal (lambda () (forward-char arg) (point)))) | 2090 | (isearch-yank-internal (lambda () (forward-char arg) (point)))) |
| 2091 | 2091 | ||
| 2092 | (declare-function subword-forward "subword" (&optional arg)) | ||
| 2093 | (defun isearch-yank-word-or-char () | 2092 | (defun isearch-yank-word-or-char () |
| 2094 | "Pull next character, subword or word from buffer into search string. | 2093 | "Pull next character or word from buffer into search string." |
| 2095 | Subword is used when `subword-mode' is activated. " | ||
| 2096 | (interactive) | 2094 | (interactive) |
| 2097 | (isearch-yank-internal | 2095 | (isearch-yank-internal |
| 2098 | (lambda () | 2096 | (lambda () |
| 2099 | (if (or (= (char-syntax (or (char-after) 0)) ?w) | 2097 | (if (or (= (char-syntax (or (char-after) 0)) ?w) |
| 2100 | (= (char-syntax (or (char-after (1+ (point))) 0)) ?w)) | 2098 | (= (char-syntax (or (char-after (1+ (point))) 0)) ?w)) |
| 2101 | (if (or (and (boundp 'subword-mode) subword-mode) | 2099 | (forward-word 1) |
| 2102 | (and (boundp 'superword-mode) superword-mode)) | ||
| 2103 | (subword-forward 1) | ||
| 2104 | (forward-word 1)) | ||
| 2105 | (forward-char 1)) | 2100 | (forward-char 1)) |
| 2106 | (point)))) | 2101 | (point)))) |
| 2107 | 2102 | ||