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