(minibuffer--do-completion): Don't forget to propagate

the arg to recursive calls.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfba8a644be21992b5994ce9b1f2f03fe804fc4c..4497176527fcb2898e96aa4a7d5fcff299913709 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d9c52fa4f0b072f6edbfbd3c904a0b88eeb70ca4..dbf78e05679f0eb4754ac72be7a56decf49c47a8 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -131,7 +131,7 @@ E = after completion we now have an Exact match.
           ;; 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)