3 (defun markdown-test--checkdoc-file (file)
4 "Check FILE for document, comment, error style, and rogue spaces.
5 Taken from Emacs 25 source."
6 (with-current-buffer (find-file-noselect file
)
7 (let ((checkdoc-diagnostic-buffer "*warn*"))
8 (checkdoc-current-buffer t
))))
10 (markdown-test--checkdoc-file "../markdown-mode.el")