diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-08-28 16:57:28 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-08-28 16:57:28 +0000 |
| commit | 81e213dc7cb42ca0195a1b81d5cb1d50164d9182 (patch) | |
| tree | 13a4a10bf88bf6b1f3523741df9ad983424a94e7 /lisp/emacs-lisp | |
| parent | 6081889eb5223289095eec80fea59e036bbe0392 (diff) | |
| download | emacs-81e213dc7cb42ca0195a1b81d5cb1d50164d9182.tar.gz emacs-81e213dc7cb42ca0195a1b81d5cb1d50164d9182.tar.bz2 emacs-81e213dc7cb42ca0195a1b81d5cb1d50164d9182.zip | |
* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Insert
commentary after first line summary.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 3 |
1 files changed, 2 insertions, 1 deletions
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") |