Mercurial > emacs
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) |