mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

Improve project support for quoted directory names (Bug#47799)

Browse source 
* lisp/progmodes/project.el (project--files-in-directory): Unquote
directory name before passing it to 'find'.
(project--remote-file-names): Requote local filenames if the original
directory is quoted.
* test/lisp/progmodes/project-tests.el (project/quoted-directory): New
unit test.
This commit is contained in:
Philipp Stephani 2021-04-15 18:41:04 +02:00
parent 0c3ce42c8f
commit 157bfc1812
2 changed files with 51 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/project.el
View file

@ -300,7 +300,8 @@ to find the list of ignores for each directory."
(command (format "%s %s %s -type f %s -print0"
find-program
;; In case DIR is a symlink.
(file-name-as-directory localdir)
(file-name-unquote
(file-name-as-directory localdir))
(xref--find-ignores-arguments ignores localdir)
(if files
(concat (shell-quote-argument "(")
@ -317,10 +318,13 @@ to find the list of ignores for each directory."
#'string<))))
(defun project--remote-file-names (local-files)
"Return LOCAL-FILES as if they were on the system of `default-directory'."
"Return LOCAL-FILES as if they were on the system of `default-directory'.
Also quote LOCAL-FILES if `default-directory' is quoted."
(let ((remote-id (file-remote-p default-directory)))
(if (not remote-id)
local-files
(if (file-name-quoted-p default-directory)
(mapcar #'file-name-quote local-files)
local-files)
(mapcar (lambda (file)
(concat remote-id file))
local-files))))