From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 29 Apr 2020 19:46:17 +0000 (+0300)
Subject: Expand file name for remote dirs as well
X-Git-Tag: emacs-27.1-rc1~168
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f17193e00692b1bb9739415b0b56ed8f16f049f;p=emacs.git

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).
---

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 " "