procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

checkdoc.el (checkdoc-file): New function

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

(bug#20754)
This commit is contained in:
Oleh Krehel 2015-06-08 08:30:32 +02:00
parent c876b73a8f
commit c941d47932
2 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/emacs-lisp/checkdoc.el
View file

@ -870,6 +870,13 @@ otherwise stop after the first error."
(if take-notes (checkdoc-show-diagnostics))
(message "Checking buffer for style...Done."))))
;;;###autoload
(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))))
;;;###autoload
(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) ":"
(int-to-string
(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))))))))
(int-to-string
(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."