Mercurial > emacs

changeset 11046:a9045ed63e20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-abort): Set isearch-success to nil.
author Richard M. Stallman <rms@gnu.org>
date Thu, 16 Mar 1995 23:31:39 +0000
parents b4bf1f2d99f8
children a6e2398557f6
files lisp/isearch.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Thu Mar 16 23:28:27 1995 +0000
+++ b/lisp/isearch.el	Thu Mar 16 23:31:39 1995 +0000
@@ -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 @@
       ;; 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))