(PC-do-completion): Do not add wildcards to pattern unless filename is

non-nil.

lisp/ChangeLog

+2002-12-02  Noah Friedman  <friedman@splode.com>
+
+	* complete.el (PC-do-completion): Do not add wildcards to pattern
+	unless filename is non-nil.
+
 2002-12-02  Andreas Schwab  <schwab@suse.de>
 	* mwheel.el (mouse-wheel-scroll-amount): Fix customize type.

lisp/complete.el

@@ -392,6 +392,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
 		PC-delims-list (append PC-delims nil)))
 
       ;; Add wildcards if necessary
+      (and filename
            (let ((dir (file-name-directory str))
                  (file (file-name-nondirectory str)))
              (while (and (stringp dir) (not (file-directory-p dir)))
@@ -401,7 +402,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
                                    (file-name-nondirectory dir))
                                   "*/" file))
                (setq dir (file-name-directory dir)))
-	(setq str (concat dir file)))
+             (setq str (concat dir file))))
 
       ;; Look for wildcard expansions in directory name
       (and filename