comparison lisp/isearch.el @ 15858:946a4fb104ef

(isearch-whitespace-chars): If isearch-invalid-regexp, insert just a space.
author Richard M. Stallman <rms@gnu.org>
date Sun, 11 Aug 1996 00:19:31 +0000
parents c0e8ab5d23fc
children 30d2dbe3372e
comparison
equal deleted inserted replaced
15857:f3f1f879d812 15858:946a4fb104ef
1089 (defun isearch-whitespace-chars () 1089 (defun isearch-whitespace-chars ()
1090 "Match all whitespace chars, if in regexp mode. 1090 "Match all whitespace chars, if in regexp mode.
1091 If you want to search for just a space, type C-q SPC." 1091 If you want to search for just a space, type C-q SPC."
1092 (interactive) 1092 (interactive)
1093 (if isearch-regexp 1093 (if isearch-regexp
1094 (if (and search-whitespace-regexp (not isearch-within-brackets)) 1094 (if (and search-whitespace-regexp (not isearch-within-brackets)
1095 (not isearch-invalid-regexp))
1095 (isearch-process-search-string search-whitespace-regexp " ") 1096 (isearch-process-search-string search-whitespace-regexp " ")
1096 (isearch-printing-char)) 1097 (isearch-printing-char))
1097 (progn 1098 (progn
1098 ;; This way of doing word search doesn't correctly extend current search. 1099 ;; This way of doing word search doesn't correctly extend current search.
1099 ;; (setq isearch-word t) 1100 ;; (setq isearch-word t)