hiro/melpazoid
1
0
Fork 0
mirror of https://github.com/vale981/melpazoid synced 2025-03-06 09:51:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: headings with empty sections bug in melpazoid.el

Browse source
This commit is contained in:
riscy 2021-11-26 13:37:43 -08:00
parent bbb32ed623
commit b85a1f4cc8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
melpazoid/melpazoid.el
View file

@ -66,7 +66,6 @@ It should only be set to t for themes."
(defun melpazoid-checkdoc (filename) (defun melpazoid-checkdoc (filename)
"Wrapper for running `checkdoc-file' against FILENAME." "Wrapper for running `checkdoc-file' against FILENAME."
(require 'checkdoc) ; to retain cleaner byte-compilation in script mode (require 'checkdoc) ; to retain cleaner byte-compilation in script mode
(melpazoid-discard-inserted)
(melpazoid-insert "\n`%s` with checkdoc %s:" (melpazoid-insert "\n`%s` with checkdoc %s:"
(file-name-nondirectory filename) (file-name-nondirectory filename)
checkdoc-version) checkdoc-version)
@ -76,7 +75,8 @@ It should only be set to t for themes."
(checkdoc-verb-check-experimental-flag nil) (checkdoc-verb-check-experimental-flag nil)
(inhibit-message t)) (inhibit-message t))
(checkdoc-file filename)) (checkdoc-file filename))
(when (get-buffer "*Warnings*") (if (not (get-buffer "*Warnings*"))
(melpazoid-discard-inserted)
(let* ((issues (let* ((issues
(with-current-buffer "*Warnings*" (with-current-buffer "*Warnings*"
(buffer-substring (point-min) (point-max)))) (buffer-substring (point-min) (point-max))))