From 509ed182e72c2ab97863948e19693217347c1072 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Mar 1995 23:31:39 +0000 Subject: [PATCH] (isearch-abort): Set isearch-success to nil. --- lisp/isearch.el | 4 ++-- 1 file 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 -;; |$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)) -- 2.39.5