(completion--file-name-table): Return nil if there's

no file completion, even if substitute-in-file-name changed
the string (bug#4708).

lisp/ChangeLog

+2009-10-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* minibuffer.el (completion--file-name-table): Return nil if there's
+	no file completion, even if substitute-in-file-name changed
+	the string (bug#4708).
+
 2009-10-13  Juri Linkov  <juri@jurta.org>
 
 	* files-x.el (read-file-local-variable-value): Don't filter out
@@ -277,7 +283,7 @@
 
 2009-10-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
-	* help-fns.el (describe-function-1): Don't burp is the function is not
+	* help-fns.el (describe-function-1): Don't burp if the function is not
 	a symbol.
 
 2009-10-05  Juanma Barranquero  <lekktu@gmail.com>

lisp/minibuffer.el

@@ -1078,16 +1078,18 @@ variables.")
        ((null action)
         (let ((comp (file-name-completion name realdir
                                           read-file-name-predicate)))
-          (if (stringp comp)
-              ;; Requote the $s before returning the completion.
-              (minibuffer--double-dollars (concat specdir comp))
+          (cond
+           ((stringp comp)
+            ;; Requote the $s before returning the completion.
+            (minibuffer--double-dollars (concat specdir comp)))
+           (comp
             ;; Requote the $s before checking for changes.
             (setq str (minibuffer--double-dollars str))
             (if (string-equal string str)
                 comp
               ;; If there's no real completion, but substitute-in-file-name
               ;; changed the string, then return the new string.
-              str))))
+              str)))))
 
        ((eq action t)
         (let ((all (file-name-all-completions name realdir)))