# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123555915 0
# Node ID 2898eac3abad21bb5b9ee0f62b713e964ee63a69
# Parent  f309b64476da54cec6ab7ce7a650ab535264d806
(icomplete-exhibit): Adapt to new while-no-input calling convention.

diff -r f309b64476da -r 2898eac3abad lisp/icomplete.el
--- a/lisp/icomplete.el	Tue Aug 09 02:51:22 2005 +0000
+++ b/lisp/icomplete.el	Tue Aug 09 02:51:55 2005 +0000
@@ -243,13 +243,15 @@
 		;; embarking on computing completions:
 		(sit-for icomplete-compute-delay)))
 	  (let ((text (while-no-input
-			(icomplete-completions
-			 (field-string)
-			 minibuffer-completion-table
-			 minibuffer-completion-predicate
-			 (not minibuffer-completion-confirm))))
+			(list
+			 (icomplete-completions
+			  (field-string)
+			  minibuffer-completion-table
+			  minibuffer-completion-predicate
+			  (not minibuffer-completion-confirm)))))
 		(buffer-undo-list t))
-	    (if text (insert text)))))))
+	    ;; Do nothing if while-no-input was aborted.
+	    (if (consp text) (insert (car text))))))))
 
 ;;;_ > icomplete-completions (name candidates predicate require-match)
 (defun icomplete-completions (name candidates predicate require-match)