609 |
;; to reflect different seriousness of linting errors |
;; to reflect different seriousness of linting errors |
610 |
|
|
611 |
(defun elint-error (string &rest args) |
(defun elint-error (string &rest args) |
612 |
"Report an linting error. |
"Report a linting error. |
613 |
STRING and ARGS are thrown on `format' to get the message." |
STRING and ARGS are thrown on `format' to get the message." |
614 |
(let ((errstr (apply 'format string args))) |
(let ((errstr (apply 'format string args))) |
615 |
(elint-log-message errstr) |
(elint-log-message errstr) |
616 |
)) |
)) |
617 |
|
|
618 |
(defun elint-warning (string &rest args) |
(defun elint-warning (string &rest args) |
619 |
"Report an linting warning. |
"Report a linting warning. |
620 |
STRING and ARGS are thrown on `format' to get the message." |
STRING and ARGS are thrown on `format' to get the message." |
621 |
(let ((errstr (apply 'format string args))) |
(let ((errstr (apply 'format string args))) |
622 |
(elint-log-message errstr) |
(elint-log-message errstr) |