procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(isearch-yank-word-or-char): New function.

Browse source 
(isearch-mode-map): Bind C-w to that.
This commit is contained in:
Richard M. Stallman 2001-12-10 20:45:27 +00:00
parent 4d8ae757b2
commit 868bf43ad4
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/isearch.el
View file

@ -291,7 +291,7 @@ Default value, nil, means edit the string instead."
(define-key map " " 'isearch-whitespace-chars)
(define-key map [?\S-\ ] 'isearch-whitespace-chars)
(define-key map "\C-w" 'isearch-yank-word)
(define-key map "\C-w" 'isearch-yank-word-or-char)
(define-key map "\C-y" 'isearch-yank-line)
;; Define keys for regexp chars * ? |.
@ -1096,6 +1096,15 @@ might return the position of the end of the line."
(interactive)
(isearch-yank-internal (lambda () (forward-char 1) (point))))
(defun isearch-yank-word-or-char ()
"Pull next character or word from buffer into search string."
(interactive)
(isearch-yank-internal (lambda ()
(if (or (= (char-syntax (or (char-after) 0)) ?w)
(= (char-syntax (or (char-after (1+ (point))) 0)) ?w))
(forward-word 1)
(forward-char 1)) (point))))
(defun isearch-yank-word ()
"Pull next word from buffer into search string."
(interactive)