(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9a68c3378b27639255d424ec0ebee94bcec8fa8..b04653de7c0e95a63b580db7dc4c7d9bce6519d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 54d1a3562595d12398299418c09becec1055c66b..b49638b8229303a348ce51e83066b55ac5c874a2 100644 (file)
--- 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))