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))