* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert

	commentary after first line summary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdb21cb510d77af05b577778260ce056b7d15a25..9c01cd76a45fcbb0c99505ef53a6c5a6a9648c73 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-08-28  Chong Yidong  <cyd@stupidchicken.com>
 
+       * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert
+       commentary after first line summary.
+
        * woman.el (woman-follow): New function, based on `man-follow'.
        (woman-mode-map): Use it.
 

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 68603c905a5fafa41cdb3404eb9276fbb298bf77..666b373ca5399e16da349eac905506d97e352592 100644 (file)
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -2261,7 +2261,8 @@ Code:, and others referenced in the style guide."
                    (re-search-forward "^;;; Code" nil t)
                    (re-search-forward "^(require" nil t)
                    (re-search-forward "^(" nil t))
-               (beginning-of-line)))
+               (beginning-of-line))
+              (t (re-search-forward ";;; .* --- .*\n")))
              (if (checkdoc-y-or-n-p
                   "You should have a \";;; Commentary:\", add one? ")
                  (insert "\n;;; Commentary:\n;; \n\n")