From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 30 Aug 2009 13:59:48 +0000 (+0000)
Subject: (checkdoc-force-history-flag):
X-Git-Tag: emacs-pretest-23.1.90~1583
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fe443deae3d0036a667273ab09971b24ce282d3;p=emacs.git

(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 b9a68c3378b..b04653de7c0 100644
--- 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 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))