diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 14 |
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 "./")))) |