emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/relint f9e4d20 2/8: More messages and updates when runn


From: Mattias Engdegård
Subject: [elpa] externals/relint f9e4d20 2/8: More messages and updates when running interactively
Date: Mon, 1 Apr 2019 08:53:37 -0400 (EDT)

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

    More messages and updates when running interactively
---
 relint.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/relint.el b/relint.el
index 10ffc88..b42e089 100644
--- a/relint.el
+++ b/relint.el
@@ -1035,7 +1035,8 @@
     (with-current-buffer (relint--error-buffer)
       (let ((inhibit-read-only t))
         (erase-buffer)
-        (insert (format "Relint results for %s\n" target)))
+        (insert (format "Relint results for %s\n" target))
+        (relint--show-errors))
       (setq relint-last-target target)
       (setq default-directory
             (if (file-directory-p target)
@@ -1093,7 +1094,10 @@
 (defun relint-directory (dir)
   "Scan all *.el files in DIR for errors in regexp strings."
   (interactive "DRelint directory: ")
-  (relint--scan-files (relint--tree-files dir) dir))
+  (message "Finding .el files in %s..." dir)
+  (let ((files (relint--tree-files dir)))
+    (message "Scanning files...")
+    (relint--scan-files files dir)))
 
 
 (defun relint-batch ()



reply via email to

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