# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 847772766 0
# Node ID 45e694f5babe2284e46c02902ea5892c2fcb3b8b
# Parent  0bef6ef9964b99124cbff7f96859a2f134e3087a
(isearch-complete1): If no completion,
don't clobber isearch-string, and return nil.

diff -r 0bef6ef9964b -r 45e694f5babe lisp/isearch.el
--- a/lisp/isearch.el	Tue Nov 12 04:13:06 1996 +0000
+++ b/lisp/isearch.el	Tue Nov 12 04:26:06 1996 +0000
@@ -1216,12 +1216,14 @@
      ((or completion ; not nil, must be a string
 	  (= 0 (length isearch-string))) ; shouldn't have to say this
       (if (equal completion isearch-string)  ;; no extension?
-	  (if completion-auto-help
-	      (with-output-to-temp-buffer "*Isearch completions*"
-		(display-completion-list 
-		 (all-completions isearch-string alist))))
-	(setq isearch-string completion))
-      t)
+	  (progn
+	    (if completion-auto-help
+		(with-output-to-temp-buffer "*Isearch completions*"
+		  (display-completion-list 
+		   (all-completions isearch-string alist))))
+	    t)
+	(and completion
+	     (setq isearch-string completion))))
      (t
       (message "No completion") ; waits a second if in minibuffer
       nil))))