mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

Expand file name for remote dirs as well

Browse Source 
* lisp/progmodes/project.el (project--files-in-directory):
Expand file name for remote dirs as well (bug#40940).
This commit is contained in:
Dmitry Gutov 2020-04-29 22:46:17 +03:00
parent 7a12ab5ea2
commit 1f17193e00
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/project.el
View File

@ -186,16 +186,14 @@ to find the list of ignores for each directory."
(require 'xref)
(defvar find-name-arg)
(let* ((default-directory dir)
(dirname (file-remote-p dir 'localname))
(dirname (or dirname
;; Make sure ~/ etc. in local directory name is
;; expanded and not left for the shell command
;; to interpret.
(expand-file-name dir)))
;; Make sure ~/ etc. in local directory name is
;; expanded and not left for the shell command
;; to interpret.
(localdir (file-local-name (expand-file-name dir)))
(command (format "%s %s %s -type f %s -print0"
find-program
dirname
(xref--find-ignores-arguments ignores dirname)
localdir
(xref--find-ignores-arguments ignores localdir)
(if files
(concat (shell-quote-argument "(")
" " find-name-arg " "