diff options
| author | Karl Heuer | 1996-01-04 23:42:23 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:42:23 +0000 |
| commit | b7852303b81d47d676800347fd68fcc791eefe1c (patch) | |
| tree | ac9ec91204471f688b14ec8560fe5d1a2f1c7a12 | |
| parent | 90a715f070d1a845ec1828841b89da7c715e0536 (diff) | |
| download | emacs-b7852303b81d47d676800347fd68fcc791eefe1c.tar.gz emacs-b7852303b81d47d676800347fd68fcc791eefe1c.zip | |
(isearch-abort, isearch-no-upper-case-p): Doc fix.
| -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." | |||
| 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. |
| 778 | Otherwise, revert to previous successful search and continue searching. | 778 | Otherwise, revert to previous successful search and continue searching. |
| 779 | Use `isearch-exit' to quit without signalling." | 779 | Use `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. |
| 1422 | If REGEXP-FLAG is non-nil, disregard letters preceeded by `\\' (but not `\\\\') | 1422 | If REGEXP-FLAG is non-nil, disregard letters preceded by `\\' (but not `\\\\') |
| 1423 | since they have special meaning in a regexp." | 1423 | since 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]" |