From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 11 May 2022 12:18:27 +0000 (+0200)
Subject: Don't signal errors in check-declare-directory
X-Git-Tag: emacs-29.0.90~1910^2~808
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed1a24b4b2e39498e4c4448365e1d5f0149e5fc6;p=emacs.git

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.
---

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))))