# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207788490 0
# Node ID a5df3c8bf64adbb1bd3b99a5149e63ba8fb05520
# Parent  c37cef77beb16238b51dfba5fb883f46b8fa9883
(minibuffer--do-completion): Don't forget to propagate
the arg to recursive calls.

diff -r c37cef77beb1 -r a5df3c8bf64a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 09 21:25:37 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 10 00:48:10 2008 +0000
@@ -1,3 +1,8 @@
+2008-04-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* minibuffer.el (minibuffer--do-completion): Don't forget to propagate
+	the arg to recursive calls.
+
 2008-04-09  Juanma Barranquero  <lekktu@gmail.com>
 
 	* minibuffer.el (completion-auto-help): Fix typo.
diff -r c37cef77beb1 -r a5df3c8bf64a lisp/minibuffer.el
--- a/lisp/minibuffer.el	Wed Apr 09 21:25:37 2008 +0000
+++ b/lisp/minibuffer.el	Thu Apr 10 00:48:10 2008 +0000
@@ -131,7 +131,7 @@
 	   ;; whether this is a unique completion or not, so try again using
 	   ;; the real case (this shouldn't recurse again, because the next
 	   ;; time try-completion will return either t or the exact string).
-           (minibuffer--do-completion)
+           (minibuffer--do-completion try-completion-function)
 
           ;; It did find a match.  Do we match some possibility exactly now?
           (let ((exact (test-completion (field-string)