diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:42:23 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:42:23 +0000 |
| commit | 023feaacc98285af9fb48eff79edf706b844fd96 (patch) | |
| tree | 1534364a8776b7dacf02db72bd95d5c0fe805b09 /lisp/isearch.el | |
| parent | d24527fa7ba17310c06f3f386ad38b876fd4aa01 (diff) | |
| download | emacs-023feaacc98285af9fb48eff79edf706b844fd96.tar.gz | |
(isearch-abort, isearch-no-upper-case-p): Doc fix.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 3beec1835aa..5e5d55acba0 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -774,9 +774,9 @@ If first char entered is \\[isearch-yank-word], then do word search instead." (signal 'quit nil)) ; and pass on quit signal (defun isearch-abort () - "Abort incremental search mode if searching is successful, signalling quit. + "Abort incremental search mode if searching is successful, signaling quit. Otherwise, revert to previous successful search and continue searching. -Use `isearch-exit' to quit without signalling." +Use `isearch-exit' to quit without signaling." (interactive) ;; (ding) signal instead below, if quitting (discard-input) @@ -1223,7 +1223,7 @@ If you want to search for just a space, type C-q SPC." ;; isearch-string stays the same t) ((or completion ; not nil, must be a string - (= 0 (length isearch-string))) ; shouldnt have to say this + (= 0 (length isearch-string))) ; shouldn't have to say this (if (equal completion isearch-string) ;; no extension? (if completion-auto-help (with-output-to-temp-buffer "*Isearch completions*" @@ -1419,7 +1419,7 @@ If there is no completion possible, say so and continue searching." (defun isearch-no-upper-case-p (string regexp-flag) "Return t if there are no upper case chars in STRING. -If REGEXP-FLAG is non-nil, disregard letters preceeded by `\\' (but not `\\\\') +If REGEXP-FLAG is non-nil, disregard letters preceded by `\\' (but not `\\\\') since they have special meaning in a regexp." (let ((case-fold-search nil)) (not (string-match (if regexp-flag "\\(^\\|\\\\\\\\\\|[^\\]\\)[A-Z]" |