From 1f17193e00692b1bb9739415b0b56ed8f16f049f Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Wed, 29 Apr 2020 22:46:17 +0300 Subject: [PATCH] Expand file name for remote dirs as well * lisp/progmodes/project.el (project--files-in-directory): Expand file name for remote dirs as well (bug#40940). --- lisp/progmodes/project.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index dbc967b8851..f5f4092babf 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -186,16 +186,14 @@ to find the list of ignores for each directory." (require 'xref) (defvar find-name-arg) (let* ((default-directory dir) - (dirname (file-remote-p dir 'localname)) - (dirname (or dirname - ;; Make sure ~/ etc. in local directory name is - ;; expanded and not left for the shell command - ;; to interpret. - (expand-file-name dir))) + ;; Make sure ~/ etc. in local directory name is + ;; expanded and not left for the shell command + ;; to interpret. + (localdir (file-local-name (expand-file-name dir))) (command (format "%s %s %s -type f %s -print0" find-program - dirname - (xref--find-ignores-arguments ignores dirname) + localdir + (xref--find-ignores-arguments ignores localdir) (if files (concat (shell-quote-argument "(") " " find-name-arg " " -- 2.39.5