Commit c941d479 authored by Oleh Krehel's avatar Oleh Krehel
Browse files

checkdoc.el (checkdoc-file): New function

* lisp/emacs-lisp/checkdoc.el (checkdoc-error): When
  `checkdoc-diagnostic-buffer' is set to "*warn*", print the warning
  to the standard output.

parent c876b73a
......@@ -84,6 +84,10 @@ command line when `initial-buffer-choice' is non-nil.
* Changes in Emacs 25.1
** New function `checkdoc-file' checks for style errors.
It's meant for use together with `compile':
emacs -batch --eval "(checkdoc-file \"subr.el\")"
** New command `comment-line' bound to `C-x C-;'.
** New function `custom-prompt-customize-unsaved-options' checks for
......@@ -870,6 +870,13 @@ otherwise stop after the first error."
(if take-notes (checkdoc-show-diagnostics))
(message "Checking buffer for style...Done."))))
(defun checkdoc-file (file)
"Check FILE for document, comment, error style, and rogue spaces."
(with-current-buffer (find-file-noselect file)
(let ((checkdoc-diagnostic-buffer "*warn*"))
(checkdoc-current-buffer t))))
(defun checkdoc-start (&optional take-notes)
"Start scanning the current buffer for documentation string style errors.
......@@ -2611,16 +2618,16 @@ function called to create the messages."
"Store POINT and MSG as errors in the checkdoc diagnostic buffer."
(setq checkdoc-pending-errors t)
(let ((text (list "\n" (checkdoc-buffer-label) ":"
(count-lines (point-min) (or point (point-min))))
": " msg)))
(with-current-buffer (get-buffer checkdoc-diagnostic-buffer)
(let ((inhibit-read-only t)
(pt (point-max)))
(goto-char pt)
(apply #'insert text)
(when noninteractive
(warn (buffer-substring pt (point-max))))))))
(count-lines (point-min) (or point (point-min))))
": " msg)))
(if (string= checkdoc-diagnostic-buffer "*warn*")
(warn (apply #'concat text))
(with-current-buffer (get-buffer checkdoc-diagnostic-buffer)
(let ((inhibit-read-only t)
(pt (point-max)))
(goto-char pt)
(apply #'insert text))))))
(defun checkdoc-show-diagnostics ()
"Display the checkdoc diagnostic buffer in a temporary window."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment