procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats 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)
(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."