[Emacs-diffs] master 7844846 1/2: Use file-name-as-directory

[Dmitry Gutov]

branch: master
commit 7844846e3fedac8f32f0d81d3c5e906715d39fd2
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Use file-name-as-directory
    
    * lisp/progmodes/project.el (project--vc-list-files): Use
    file-name-as-directory, to be on the safe side.
---
 lisp/progmodes/project.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 2304734..2cf11af 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.