diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2023-04-10 02:08:48 +0300 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2023-04-10 02:09:45 +0300 |
commit | 589959fb09d8a8f60179e1cceca4c3777b8c7719 (patch) | |
tree | 3e384ab7230b0d69f0e32eaa17ee3e6e520e0973 | |
parent | d6af1f14982db408c92f5c879b28e8be71e85054 (diff) | |
download | emacs-589959fb09d8a8f60179e1cceca4c3777b8c7719.tar.gz |
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).
-rw-r--r-- | lisp/progmodes/project.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |