branch: externals/relint
commit ba7b7474ae08968d5a0341b9ce79757848ef759c
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
Display the number of files found in relint-directory
---
relint.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/relint.el b/relint.el
index a53e2c0..567315c 100644
--- a/relint.el
+++ b/relint.el
@@ -2125,9 +2125,12 @@ Diagnostics to ERROR-BUFFER. If QUIET, don't emit
messages."
"Scan all *.el files in DIR for regexp-related errors."
(interactive "DRelint directory: ")
(message "Finding .el files in %s..." dir)
- (let ((files (relint--tree-files dir)))
- (message "Scanning files...")
- (relint--scan-files files dir dir (relint--get-error-buffer))))
+ (let* ((files (relint--tree-files dir))
+ (n (length files)))
+ (if (not files)
+ (message "No .el files found.")
+ (message "Scanning %d file%s..." n (if (= n 1) "" "s"))
+ (relint--scan-files files dir dir (relint--get-error-buffer)))))
;;;###autoload
(defun relint-current-buffer ()
