diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-03-16 23:31:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-03-16 23:31:39 +0000 |
| commit | b94766639c0d5e4f5b30a3a7be67202bf734b01c (patch) | |
| tree | 2049c00cffce9129e857daafdd33b454b9b5b07f | |
| parent | f5387c3d4467c7dfa4e9d0982e2abe6604fd0b89 (diff) | |
| download | emacs-b94766639c0d5e4f5b30a3a7be67202bf734b01c.tar.gz | |
(isearch-abort): Set isearch-success to nil.
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 677fdef363a..90c26744978 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1994/12/26 05:09:07 $|$Revision: 1.82 $ +;; |$Date: 1995/01/11 02:24:09 $|$Revision: 1.83 $ ;; This file is part of GNU Emacs. @@ -797,13 +797,13 @@ Use `isearch-exit' to quit without signalling." ;; If search is successful, move back to starting point ;; and really do quit. (progn (goto-char isearch-opoint) + (setq isearch-success nil) (isearch-done t) ; exit isearch (signal 'quit nil)) ; and pass on quit signal ;; If search is failing, rub out until it is once more successful. (while (not isearch-success) (isearch-pop-state)) (isearch-update))) - (defun isearch-repeat (direction) ;; Utility for isearch-repeat-forward and -backward. (if (eq isearch-forward (eq direction 'forward)) |