diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2019-10-04 11:08:38 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2019-10-04 12:13:25 +0300 |
| commit | 7844846e3fedac8f32f0d81d3c5e906715d39fd2 (patch) | |
| tree | 4c1aacc6da78b993652d85e7356aae19e8482e30 /lisp/progmodes/project.el | |
| parent | 3886a5c140b03f07c8faea7cacad0a791bc54fa5 (diff) | |
| download | emacs-7844846e3fedac8f32f0d81d3c5e906715d39fd2.tar.gz | |
Use file-name-as-directory
* lisp/progmodes/project.el (project--vc-list-files): Use
file-name-as-directory, to be on the safe side.
Diffstat (limited to 'lisp/progmodes/project.el')
| -rw-r--r-- | lisp/progmodes/project.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 2304734bd24..2cf11afc36b 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -298,7 +298,7 @@ backend implementation of `project-external-roots'.") (defun project--vc-list-files (dir backend extra-ignores) (pcase backend (`Git - (let ((default-directory dir) + (let ((default-directory (file-name-as-directory dir)) (args '("-z"))) ;; Include unregistered. (setq args (append args '("-c" "-o" "--exclude-standard"))) @@ -317,7 +317,7 @@ backend implementation of `project-external-roots'.") (apply #'vc-git--run-command-string nil "ls-files" args) "\0" t)))) (`Hg - (let ((default-directory dir) + (let ((default-directory (file-name-as-directory dir)) args files) ;; Include unregistered. |