From 589959fb09d8a8f60179e1cceca4c3777b8c7719 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 10 Apr 2023 02:08:48 +0300 Subject: project-search: Pipe the list of files through 'file-regular-p' * lisp/progmodes/project.el (project-search): Pipe the list of files through 'file-regular-p' to skip directories (bug#62735). --- lisp/progmodes/project.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 11228226592..a18b918db62 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1216,7 +1216,10 @@ To continue searching for the next match, use the command \\[fileloop-continue]." (interactive "sSearch (regexp): ") (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)) ;;;###autoload -- cgit v1.2.3