Use file-name-as-directory

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

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 2304734bd2487403221d63a9fe875722e6808003..2cf11afc36b6d8fb1f905727ffd49aaefd9d9fdc 100644 (file)
--- 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.