[elpa] externals/relint 6bfba5c 01/11: Always output to stderr when running noninteractively

[Mattias Engdegård]

branch: externals/relint
commit 6bfba5c46a542a1b6396717779a9cd6e65bb5848
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Always output to stderr when running noninteractively
    
    Previously, relint-file, relint-directory and relint-current-buffer
    always wrote to the *relint* buffer which may be less useful in such
    cases (especially with the summary line going to stderr).
    
    Reported/suggested by Paul Pogonyshev (bug #10).
---
 relint.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/relint.el b/relint.el
index 8134671..959f57d 100644
--- a/relint.el
+++ b/relint.el
@@ -107,14 +107,16 @@
 (defvar relint--suppression-count)
 
 (defun relint--get-error-buffer ()
-  (let ((buf (get-buffer-create "*relint*")))
-    (with-current-buffer buf
-      (unless (eq major-mode 'relint-mode)
-        (relint-mode))
-      (let ((inhibit-read-only t))
-        (compilation-forget-errors)
-        (erase-buffer)))
-    buf))
+  "Buffer to which errors are printed, or nil if noninteractive."
+  (and (not noninteractive)
+       (let ((buf (get-buffer-create "*relint*")))
+         (with-current-buffer buf
+           (unless (eq major-mode 'relint-mode)
+             (relint-mode))
+           (let ((inhibit-read-only t))
+             (compilation-forget-errors)
+             (erase-buffer)))
+         buf)))
 
 (defun relint--add-to-error-buffer (string)
   (with-current-buffer relint--error-buffer