Mercurial > emacs
changeset 104728:f0b66ed6123b
(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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 30 Aug 2009 13:59:48 +0000 |
| parents | d5f0f3b3553a |
| children | aa3e957fcf20 |
| files | lisp/ChangeLog lisp/emacs-lisp/checkdoc.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Aug 30 05:22:50 2009 +0000 +++ b/lisp/ChangeLog Sun Aug 30 13:59:48 2009 +0000 @@ -1,5 +1,10 @@ 2009-08-30 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/checkdoc.el (checkdoc-force-history-flag): + Change default, since most of our files don't have a history. + (checkdoc-display-status-buffer): Don't use a hidden buffer to show to + the user. + * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions): Add comint-run.
--- a/lisp/emacs-lisp/checkdoc.el Sun Aug 30 05:22:50 2009 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Sun Aug 30 13:59:48 2009 +0000 @@ -218,7 +218,7 @@ :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 @@ 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 @@ "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))