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

project-query-replace-regexp: Filter out non-regular files

Browse source 
* lisp/progmodes/project.el (project-query-replace-regexp):
Filter out non-regular files (bug#55382).
This commit is contained in:
Dmitry Gutov 2022-06-04 03:13:42 +03:00
parent 6f69284ada
commit db82347269
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/project.el
View file

@ -1092,7 +1092,12 @@ If you exit the `query-replace', you can later continue the
(query-replace-read-args "Query replace (regexp)" t t)))
(list from to))))
(fileloop-initialize-replace
from to (project-files (project-current t)) 'default)
from to
;; XXX: Filter out Git submodules, which are not regular files.
;; `project-files' can return those, which is arguably suboptimal,
;; but removing them eagerly has performance cost.
(cl-delete-if-not #'file-regular-p (project-files (project-current t)))
'default)
(fileloop-continue))
(defvar compilation-read-command)