branch: externals/relint commit 6bfba5c46a542a1b6396717779a9cd6e65bb5848 Author: Mattias Engdegård <matti...@acm.org> Commit: Mattias Engdegård <matti...@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