[elpa] externals/relint ba7b747 01/21: Display the number of files found in relint-directory

[Mattias Engdegård]

branch: externals/relint
commit ba7b7474ae08968d5a0341b9ce79757848ef759c
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

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