Commit 8e28519a authored by Noah Friedman's avatar Noah Friedman
Browse files

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

non-nil.
parent 90a7967a
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment