aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/files.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 790f6cedfd6..71398227407 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -716,13 +716,13 @@ The path separator is colon in GNU and GNU-like systems."
716 ;; (which will lead to the use of B/a). 716 ;; (which will lead to the use of B/a).
717 (minibuffer-with-setup-hook 717 (minibuffer-with-setup-hook
718 (lambda () 718 (lambda ()
719 (setq minibuffer-completion-table 719 (setq-local minibuffer-completion-table
720 (apply-partially #'locate-file-completion-table 720 (apply-partially #'locate-file-completion-table
721 cd-path nil)) 721 cd-path nil))
722 (setq minibuffer-completion-predicate 722 (setq-local minibuffer-completion-predicate
723 (lambda (dir) 723 (lambda (dir)
724 (locate-file dir cd-path nil 724 (locate-file dir cd-path nil
725 (lambda (f) (and (file-directory-p f) 'dir-ok)))))) 725 (lambda (f) (and (file-directory-p f) 'dir-ok))))))
726 (unless cd-path 726 (unless cd-path
727 (setq cd-path (or (parse-colon-path (getenv "CDPATH")) 727 (setq cd-path (or (parse-colon-path (getenv "CDPATH"))
728 (list "./")))) 728 (list "./"))))