From 463f537289728c0b267895ee50a087a4e5552812 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Felici=C3=A1n=20N=C3=A9meth?= Date: Sat, 2 Feb 2019 11:09:02 +0100 Subject: [PATCH] Make project-files work with remote files * lisp/progmodes/project.el (project--files-in-directory): Support remote files. --- lisp/progmodes/project.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 3603e751fe..815cc7cd3d 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -189,9 +189,11 @@ project--find-in-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 @@ project--files-in-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." -- 2.11.0