|
From: | Dmitry Gutov |
Subject: | bug#40940: 27.0.91; project-query-replace-regexp stops too early |
Date: | Wed, 29 Apr 2020 21:20:06 +0300 |
User-agent: | Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.7.0 |
On 29.04.2020 19:44, Eli Zaretskii wrote:
Dmitry, this means my change should be reworked to call expand-file-name before file-local-name, right?
Seems so. Something like this? diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index dbc967b885..f80b4328bc 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -185,17 +185,16 @@ project--files-in-directory (require 'find-dired) (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))) + (let* ((dir + ;; Make sure ~/ etc. in local directory name is + ;; expanded and not left for the shell command + ;; to interpret. + (expand-file-name dir)) + (default-directory dir) (command (format "%s %s %s -type f %s -print0" find-program - dirname - (xref--find-ignores-arguments ignores dirname) + dir + (xref--find-ignores-arguments ignores dir) (if files (concat (shell-quote-argument "(") " " find-name-arg " "
[Prev in Thread] | Current Thread | [Next in Thread] |