diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-30 13:59:48 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-30 13:59:48 +0000 |
| commit | 5fe443deae3d0036a667273ab09971b24ce282d3 (patch) | |
| tree | d4fa1bf68305bafb315aad992ad169cbbd102f1c /lisp/emacs-lisp | |
| parent | 6444d64a4db49e200c5bbe952f3577c2d3e017c7 (diff) | |
| download | emacs-5fe443deae3d0036a667273ab09971b24ce282d3.tar.gz emacs-5fe443deae3d0036a667273ab09971b24ce282d3.tar.bz2 emacs-5fe443deae3d0036a667273ab09971b24ce282d3.zip | |
(checkdoc-force-history-flag):
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 54d1a356259..b49638b8229 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -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)) |