]> git.eshelyaron.com Git - emacs.git/commitdiff
Don't signal errors in check-declare-directory
authorLars Ingebrigtsen <larsi@gnus.org>
Wed, 11 May 2022 12:18:27 +0000 (14:18 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Wed, 11 May 2022 12:18:27 +0000 (14:18 +0200)
* 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

index eeefb3de10c9b6e0b36357fa4d89706b3e0e948d..b3c965166b6b35f28961664f96b5b4e6d16f59c4 100644 (file)
@@ -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))))