Use file-name-as-directory

* lisp/progmodes/project.el (project--vc-list-files): Use
file-name-as-directory, to be on the safe side.

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.