[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/checkdoc.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/30 13:59:51

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: checkdoc.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16058&r2=1.16059
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/checkdoc.el?cvsroot=emacs&r1=1.73&r2=1.74

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16058
retrieving revision 1.16059
diff -u -b -r1.16058 -r1.16059
--- ChangeLog   30 Aug 2009 05:22:50 -0000      1.16058
+++ ChangeLog   30 Aug 2009 13:59:48 -0000      1.16059
@@ -1,5 +1,10 @@
 2009-08-30  Stefan Monnier  <address@hidden>
 
+       * 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.
 

Index: emacs-lisp/checkdoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/checkdoc.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- emacs-lisp/checkdoc.el      22 Aug 2009 23:02:18 -0000      1.73
+++ emacs-lisp/checkdoc.el      30 Aug 2009 13:59:51 -0000      1.74
@@ -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))