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

	commentary after first line summary.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdb21cb510d..9c01cd76a45 100644
--- 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 68603c905a5..666b373ca53 100644
--- 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")