diff lisp/isearch-mode.el @ 2030:488b2f76d852

[xemacs-hg @ 2004-04-19 08:54:47 by stephent] assorted improvements in ./lisp/ <87llkswdr6.fsf@tleepslib.sk.tsukuba.ac.jp> <87pta4we6g.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 19 Apr 2004 08:54:50 +0000
parents 442db3c3c43b
children 7dc50bbd7a39
line wrap: on
line diff
--- a/lisp/isearch-mode.el	Mon Apr 19 08:16:33 2004 +0000
+++ b/lisp/isearch-mode.el	Mon Apr 19 08:54:50 2004 +0000
@@ -874,7 +874,7 @@
       ;; and really do quit.
       (progn (goto-char isearch-opoint)
 	     (setq isearch-success nil)
-	     (isearch-done t)   ; exit isearch
+	     (isearch-done)		 ; exit and push target string
 	     (signal 'quit '(isearch)))  ; and pass on quit signal
     ;; If search is failing, or has an incomplete regexp,
     ;; rub out until it is once more successful.