mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
commentary after first line summary.
This commit is contained in:
Chong Yidong 2006-08-28 16:57:28 +00:00
parent 6081889eb5
commit 81e213dc7c
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2006-08-28 Chong Yidong <cyd@stupidchicken.com> 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.el (woman-follow): New function, based on `man-follow'.
(woman-mode-map): Use it. (woman-mode-map): Use it.

3
lisp/emacs-lisp/checkdoc.el
View file

@ -2261,7 +2261,8 @@ Code:, and others referenced in the style guide."
(re-search-forward "^;;; Code" nil t) (re-search-forward "^;;; Code" nil t)
(re-search-forward "^(require" nil t) (re-search-forward "^(require" nil t)
(re-search-forward "^(" nil t)) (re-search-forward "^(" nil t))
(beginning-of-line))) (beginning-of-line))
(t (re-search-forward ";;; .* --- .*\n")))
(if (checkdoc-y-or-n-p (if (checkdoc-y-or-n-p
"You should have a \";;; Commentary:\", add one? ") "You should have a \";;; Commentary:\", add one? ")
(insert "\n;;; Commentary:\n;; \n\n") (insert "\n;;; Commentary:\n;; \n\n")