[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-27 1f17193: Expand file name for remote dirs as well
From: |
Dmitry Gutov |
Subject: |
emacs-27 1f17193: Expand file name for remote dirs as well |
Date: |
Wed, 29 Apr 2020 15:46:24 -0400 (EDT) |
branch: emacs-27
commit 1f17193e00692b1bb9739415b0b56ed8f16f049f
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Expand file name for remote dirs as well
* lisp/progmodes/project.el (project--files-in-directory):
Expand file name for remote dirs as well (bug#40940).
---
lisp/progmodes/project.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index dbc967b..f5f4092 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -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 " "
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 1f17193: Expand file name for remote dirs as well,
Dmitry Gutov <=