[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2f55b97: Fix Bug#34221
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 2f55b97: Fix Bug#34221 |
Date: |
Sat, 2 Feb 2019 07:23:05 -0500 (EST) |
branch: master
commit 2f55b971b42d13188157331a1e514949f20ced4f
Author: Felicián Németh <address@hidden>
Commit: Michael Albinus <address@hidden>
Fix Bug#34221
* lisp/progmodes/project.el (project--files-in-directory):
Support remote files. (Bug#34221)
---
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 3603e75..815cc7c 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2f55b97: Fix Bug#34221,
Michael Albinus <=