[elpa] externals/relint 43c4644 06/23: Correct naming

[Mattias Engdegård]

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

    Correct naming
---
 relint.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/relint.el b/relint.el
index 4ec1aa3..8f34195 100644
--- a/relint.el
+++ b/relint.el
@@ -152,7 +152,7 @@ indices to follow to target)."
   (relint--skip-whitespace))
 
 (defun relint--pos-line-col-from-toplevel-pos-path (toplevel-pos path)
-  "Compute (POINT LINE COLUMN) from TOPLEVEL-POS and PATH (reversed
+  "Compute (POSITION LINE COLUMN) from TOPLEVEL-POS and PATH (reversed
 list of list indices to follow to target)."
   (save-excursion
     (relint--go-to-pos-path toplevel-pos path)
@@ -195,12 +195,12 @@ list of list indices to follow to target)."
     (relint--add-to-error-buffer (concat string "\n"))))
 
 (defun relint--report (file pos path message)
-  (let ((point-line-col (relint--pos-line-col-from-toplevel-pos-path pos 
path)))
-    (if (relint--suppression (nth 0 point-line-col) message)
+  (let ((pos-line-col (relint--pos-line-col-from-toplevel-pos-path pos path)))
+    (if (relint--suppression (nth 0 pos-line-col) message)
         (setq relint--suppression-count (1+ relint--suppression-count))
       (relint--output-error
        (format "%s:%d:%d: %s"
-               file (nth 1 point-line-col) (nth 2 point-line-col) message))))
+               file (nth 1 pos-line-col) (nth 2 pos-line-col) message))))
   (setq relint--error-count (1+ relint--error-count)))
 
 (defun relint--escape-string (str escape-printable)
@@ -772,7 +772,7 @@ not be evaluated safely."
                             body)))
        
        (t
-        ;;(relint--add-to-error-buffer (format "eval rule missing: %S\n" form))
+        ;;(relint--output-error (format "eval rule missing: %S" form))
         (throw 'relint-eval 'no-value))))))
 
 (defun relint--eval-or-nil (form)
@@ -1508,7 +1508,7 @@ Return a list of (FORM . STARTING-POSITION)."
 (defun relint--scan-files (files target base-dir)
   (relint--init target base-dir)
   (dolist (file files)
-    ;;(relint--add-to-error-buffer (format "Scanning %s\n" file))
+    ;;(relint--output-error (format "Scanning %s" file))
     (relint--scan-file file base-dir))
   (relint--finish))