From ed1a24b4b2e39498e4c4448365e1d5f0149e5fc6 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 11 May 2022 14:18:27 +0200 Subject: [PATCH] Don't signal errors in check-declare-directory * lisp/emacs-lisp/check-declare.el (check-declare-directory): Don't bug out if we don't find any files with declare-function:(bug#55354) because this is a predicate function, and that's inconvenient. --- lisp/emacs-lisp/check-declare.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index eeefb3de10c..b3c965166b6 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -319,10 +319,11 @@ Returns non-nil if any false statements are found." (setq root (directory-file-name (file-relative-name root))) (or (file-directory-p root) (error "Directory `%s' not found" root)) - (let ((files (process-lines find-program root - "-name" "*.el" - "-exec" grep-program - "-l" "^[ \t]*(declare-function" "{}" "+"))) + (let ((files (process-lines-ignore-status + find-program root + "-name" "*.el" + "-exec" grep-program + "-l" "^[ \t]*(declare-function" "{}" "+"))) (when files (apply #'check-declare-files files)))) -- 2.39.2