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

project-search: Pipe the list of files through 'file-regular-p'

Browse source 
* lisp/progmodes/project.el (project-search): Pipe the list of
files through 'file-regular-p' to skip directories (bug#62735).
This commit is contained in:
Dmitry Gutov 2023-04-10 02:08:48 +03:00
parent d6af1f1498
commit 589959fb09
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/project.el
View file

@ -1216,7 +1216,10 @@ To continue searching for the next match, use the
command \\[fileloop-continue]." command \\[fileloop-continue]."
(interactive "sSearch (regexp): ") (interactive "sSearch (regexp): ")
(fileloop-initialize-search (fileloop-initialize-search
regexp (project-files (project-current t)) 'default) regexp
;; XXX: See the comment in project-query-replace-regexp.
(cl-delete-if-not #'file-regular-p (project-files (project-current t)))
'default)
(fileloop-continue)) (fileloop-continue))
;;;###autoload ;;;###autoload