emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master ed1a24b4b2: Don't signal errors in check-declare-directory


From: Lars Ingebrigtsen
Subject: master ed1a24b4b2: Don't signal errors in check-declare-directory
Date: Wed, 11 May 2022 08:18:56 -0400 (EDT)

branch: master
commit ed1a24b4b2e39498e4c4448365e1d5f0149e5fc6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 eeefb3de10..b3c965166b 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))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]