mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 03:40:47 -08:00
Code Issues Projects Releases Wiki Activity

Fix Bug#34221

Browse source 
* lisp/progmodes/project.el (project--files-in-directory):
Support remote files.  (Bug#34221)
This commit is contained in:
Felicián Németh 2019-02-02 13:22:53 +01:00 • committed by Michael Albinus
parent 30c09955f6
commit 2f55b971b4
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/project.el
View file

@ -189,9 +189,11 @@ to find the list of ignores for each directory."
(defun project--files-in-directory (dir ignores &optional files) (defun project--files-in-directory (dir ignores &optional files)
(require 'find-dired) (require 'find-dired)
(defvar find-name-arg) (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 find-program
dir (file-local-name dir)
(xref--find-ignores-arguments (xref--find-ignores-arguments
ignores ignores
(expand-file-name dir)) (expand-file-name dir))
@ -205,7 +207,8 @@ to find the list of ignores for each directory."
" " " "
(shell-quote-argument ")"))"") (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 (defgroup project-vc nil
"Project implementation using the VC package." "Project implementation using the VC package."