aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/isearch.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 90c26744978..79f2c5d11ce 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 5;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 6
7;; |$Date: 1995/01/11 02:24:09 $|$Revision: 1.83 $ 7;; |$Date: 1995/03/16 23:31:39 $|$Revision: 1.84 $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -800,8 +800,10 @@ Use `isearch-exit' to quit without signalling."
800 (setq isearch-success nil) 800 (setq isearch-success nil)
801 (isearch-done t) ; exit isearch 801 (isearch-done t) ; exit isearch
802 (signal 'quit nil)) ; and pass on quit signal 802 (signal 'quit nil)) ; and pass on quit signal
803 ;; If search is failing, rub out until it is once more successful. 803 ;; If search is failing, or has an incomplete regexp,
804 (while (not isearch-success) (isearch-pop-state)) 804 ;; rub out until it is once more successful.
805 (while (or (not isearch-success) isearch-invalid-regexp)
806 (isearch-pop-state))
805 (isearch-update))) 807 (isearch-update)))
806 808
807(defun isearch-repeat (direction) 809(defun isearch-repeat (direction)