[elpa] externals/relint f6fb8e6 31/44: Sundry cosmetic fixes

[Mattias Engdegård]

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

    Sundry cosmetic fixes
    
    Run with case-fold-search set to nil.
    The error buffer is now named "*relint*".
---
 relint.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/relint.el b/relint.el
index 24e8eec..3d67093 100644
--- a/relint.el
+++ b/relint.el
@@ -1,4 +1,4 @@
-;;; relint.el --- Scan elisp files for regexp errors -*- lexical-binding: t -*-
+;;; relint.el --- Elisp regexp mistake finder   -*- lexical-binding: t -*-
 
 ;; Author: Mattias Engdegård <address@hidden>
 ;; Version: 1.4
@@ -46,7 +46,7 @@
 
 (require 'xr)
 
-(defconst relint--error-buffer-name "*relint-catch*")
+(defconst relint--error-buffer-name "*relint*")
 
 (defun relint--error-buffer ()
   (let ((buf (get-buffer relint--error-buffer-name)))
@@ -310,7 +310,7 @@
    ((atom form)
     form)
    ((not (symbolp (car form)))
-    (relint--add-to-error-buffer (format "eval error: %S" form))
+    (relint--add-to-error-buffer (format "eval error: %S\n" form))
     'no-value)
    ((eq (car form) 'quote)
     (if (and (consp (cadr form))
@@ -743,7 +743,8 @@
   (let ((index 0))
     (while (consp form)
       (when (consp (car form))
-        (relint--check-form-recursively-2 (car form) file pos (cons index 
path)))
+        (relint--check-form-recursively-2
+         (car form) file pos (cons index path)))
       (setq form (cdr form))
       (setq index (1+ index)))))
 
@@ -793,6 +794,7 @@
       (emacs-lisp-mode)
       (insert-file-contents file)
       (let ((forms (relint--read-buffer file))
+            (case-fold-search nil)
             (relint--variables nil)
             (relint--checked-variables nil)
             (relint--regexp-functions nil))
@@ -846,7 +848,7 @@ Call this function in batch mode with files and directories 
as
 command-line arguments.  Files are scanned; directories are
 searched recursively for *.el files to scan."
   (unless noninteractive
-    (error "`relint-batch' is to be used only with -batch"))
+    (error "`relint-batch' is only for use with -batch"))
   (setq relint--error-count 0)
   (while command-line-args-left
     (let ((arg (pop command-line-args-left)))