aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:42:23 +0000
committerKarl Heuer1996-01-04 23:42:23 +0000
commitb7852303b81d47d676800347fd68fcc791eefe1c (patch)
treeac9ec91204471f688b14ec8560fe5d1a2f1c7a12
parent90a715f070d1a845ec1828841b89da7c715e0536 (diff)
downloademacs-b7852303b81d47d676800347fd68fcc791eefe1c.tar.gz
emacs-b7852303b81d47d676800347fd68fcc791eefe1c.zip
(isearch-abort, isearch-no-upper-case-p): Doc fix.
-rw-r--r--lisp/isearch.el8
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."
774 (signal 'quit nil)) ; and pass on quit signal 774 (signal 'quit nil)) ; and pass on quit signal
775 775
776(defun isearch-abort () 776(defun isearch-abort ()
777 "Abort incremental search mode if searching is successful, signalling quit. 777 "Abort incremental search mode if searching is successful, signaling quit.
778Otherwise, revert to previous successful search and continue searching. 778Otherwise, revert to previous successful search and continue searching.
779Use `isearch-exit' to quit without signalling." 779Use `isearch-exit' to quit without signaling."
780 (interactive) 780 (interactive)
781;; (ding) signal instead below, if quitting 781;; (ding) signal instead below, if quitting
782 (discard-input) 782 (discard-input)
@@ -1223,7 +1223,7 @@ If you want to search for just a space, type C-q SPC."
1223 ;; isearch-string stays the same 1223 ;; isearch-string stays the same
1224 t) 1224 t)
1225 ((or completion ; not nil, must be a string 1225 ((or completion ; not nil, must be a string
1226 (= 0 (length isearch-string))) ; shouldnt have to say this 1226 (= 0 (length isearch-string))) ; shouldn't have to say this
1227 (if (equal completion isearch-string) ;; no extension? 1227 (if (equal completion isearch-string) ;; no extension?
1228 (if completion-auto-help 1228 (if completion-auto-help
1229 (with-output-to-temp-buffer "*Isearch completions*" 1229 (with-output-to-temp-buffer "*Isearch completions*"
@@ -1419,7 +1419,7 @@ If there is no completion possible, say so and continue searching."
1419 1419
1420(defun isearch-no-upper-case-p (string regexp-flag) 1420(defun isearch-no-upper-case-p (string regexp-flag)
1421 "Return t if there are no upper case chars in STRING. 1421 "Return t if there are no upper case chars in STRING.
1422If REGEXP-FLAG is non-nil, disregard letters preceeded by `\\' (but not `\\\\') 1422If REGEXP-FLAG is non-nil, disregard letters preceded by `\\' (but not `\\\\')
1423since they have special meaning in a regexp." 1423since they have special meaning in a regexp."
1424 (let ((case-fold-search nil)) 1424 (let ((case-fold-search nil))
1425 (not (string-match (if regexp-flag "\\(^\\|\\\\\\\\\\|[^\\]\\)[A-Z]" 1425 (not (string-match (if regexp-flag "\\(^\\|\\\\\\\\\\|[^\\]\\)[A-Z]"