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

(checkdoc-force-history-flag):

Browse source 
Change default, since most of our files don't have a history.
(checkdoc-display-status-buffer): Don't use hidden buffers to show to the user.
This commit is contained in:
Stefan Monnier 2009-08-30 13:59:48 +00:00
parent 6444d64a4d
commit 5fe443deae
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -218,7 +218,7 @@ have doc strings."
:type 'boolean)
;;;###autoload(put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp)
(defcustom checkdoc-force-history-flag t
(defcustom checkdoc-force-history-flag nil
"Non-nil means that files should have a History section or ChangeLog file.
This helps document the evolution of, and recent changes to, the package."
:group 'checkdoc
@ -511,7 +511,7 @@ the users will view as each check is completed."
CHECK is a list of four strings stating the current status of each
test; the nth string describes the status of the nth test."
(let (temp-buffer-setup-hook)
(with-output-to-temp-buffer " *Checkdoc Status*"
(with-output-to-temp-buffer "*Checkdoc Status*"
(princ-list
"Buffer comments and tags: " (nth 0 check) "\n"
"Documentation style: " (nth 1 check) "\n"
@ -519,7 +519,7 @@ test; the nth string describes the status of the nth test."
"Unwanted Spaces: " (nth 3 check)
)))
(shrink-window-if-larger-than-buffer
(get-buffer-window " *Checkdoc Status*"))
(get-buffer-window "*Checkdoc Status*"))
(message nil)
(sit-for 0))