From: Felicián Németh <felician.nemeth@gmail.com>
Date: Sat, 2 Feb 2019 12:22:53 +0000 (+0100)
Subject: Fix Bug#34221
X-Git-Tag: emacs-27.0.90~3682
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f55b971b42d13188157331a1e514949f20ced4f;p=emacs.git

Fix Bug#34221

* lisp/progmodes/project.el (project--files-in-directory):
Support remote files.  (Bug#34221)
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 3603e751fee..815cc7cd3d3 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -189,9 +189,11 @@ to find the list of ignores for each directory."
 (defun project--files-in-directory (dir ignores &optional files)
   (require 'find-dired)
   (defvar find-name-arg)
-  (let ((command (format "%s %s %s -type f %s -print0"
+  (let ((default-directory dir)
+        (remote-id (file-remote-p dir))
+        (command (format "%s %s %s -type f %s -print0"
                          find-program
-                         dir
+                         (file-local-name dir)
                          (xref--find-ignores-arguments
                           ignores
                           (expand-file-name dir))
@@ -205,7 +207,8 @@ to find the list of ignores for each directory."
                                      " "
                                      (shell-quote-argument ")"))"")
                          )))
-    (split-string (shell-command-to-string command) "\0" t)))
+    (mapcar (lambda (file) (concat remote-id file))
+            (split-string (shell-command-to-string command) "\0" t))))
 
 (defgroup project-vc nil
   "Project implementation using the VC package."