Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 72564:976ef29e497e | 72565:186382a0d1cc |
|---|---|
| 2259 (re-search-forward "^;;\\s-*\n\\|^\n" nil t)) | 2259 (re-search-forward "^;;\\s-*\n\\|^\n" nil t)) |
| 2260 ((or (re-search-forward "^;;; History" nil t) | 2260 ((or (re-search-forward "^;;; History" nil t) |
| 2261 (re-search-forward "^;;; Code" nil t) | 2261 (re-search-forward "^;;; Code" nil t) |
| 2262 (re-search-forward "^(require" nil t) | 2262 (re-search-forward "^(require" nil t) |
| 2263 (re-search-forward "^(" nil t)) | 2263 (re-search-forward "^(" nil t)) |
| 2264 (beginning-of-line))) | 2264 (beginning-of-line)) |
| 2265 (t (re-search-forward ";;; .* --- .*\n"))) | |
| 2265 (if (checkdoc-y-or-n-p | 2266 (if (checkdoc-y-or-n-p |
| 2266 "You should have a \";;; Commentary:\", add one? ") | 2267 "You should have a \";;; Commentary:\", add one? ") |
| 2267 (insert "\n;;; Commentary:\n;; \n\n") | 2268 (insert "\n;;; Commentary:\n;; \n\n") |
| 2268 (checkdoc-create-error | 2269 (checkdoc-create-error |
| 2269 "You should have a section marked \";;; Commentary:\"" | 2270 "You should have a section marked \";;; Commentary:\"" |