From b7852303b81d47d676800347fd68fcc791eefe1c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Jan 1996 23:42:23 +0000 Subject: [PATCH] (isearch-abort, isearch-no-upper-case-p): Doc fix. --- lisp/isearch.el | 8 ++++---- 1 file 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]" -- 2.39.2