diff lisp/emacs-lisp/checkdoc.el @ 72565:186382a0d1cc

* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert commentary after first line summary.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 28 Aug 2006 16:57:28 +0000
parents 56fd2cceac24
children cacf1e7f0aaf c358d0861b16
line wrap: on
line diff
--- 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")