# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1156784248 0
# Node ID 186382a0d1cc841e46a4e8be4c4dcda78fc3bac8
# Parent  976ef29e497ed2911f5c28fad38cce79ffe41076
	* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert
	commentary after first line summary.

diff -r 976ef29e497e -r 186382a0d1cc lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Aug 28 15:40:21 2006 +0000
+++ b/lisp/ChangeLog	Mon Aug 28 16:57:28 2006 +0000
@@ -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 -r 976ef29e497e -r 186382a0d1cc lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Mon Aug 28 15:40:21 2006 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Mon Aug 28 16:57:28 2006 +0000
@@ -2261,7 +2261,8 @@
 		    (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")