From 7844846e3fedac8f32f0d81d3c5e906715d39fd2 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Fri, 4 Oct 2019 11:08:38 +0300 Subject: [PATCH] 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 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. -- 2.39.2