[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ed1a24b4b2: Don't signal errors in check-declare-directory,
Lars Ingebrigtsen <=