Mercurial > emacs
changeset 24219:0bb9e5990c22
(lm-verify): Fix arg list.
(lm-commentary): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 29 Jan 1999 14:31:49 +0000 |
| parents | f3a482ad0fd6 |
| children | 33f8216be2f1 |
| files | lisp/emacs-lisp/lisp-mnt.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el Fri Jan 29 14:12:49 1999 +0000 +++ b/lisp/emacs-lisp/lisp-mnt.el Fri Jan 29 14:31:49 1999 +0000 @@ -395,8 +395,9 @@ (defun lm-commentary (&optional file) "Return the commentary in file FILE, or current buffer if FILE is nil. -The value is returned as a string. In the text, the commentary starts -with tag `Commentary' and ends with tag `Change Log' or `History'." +The value is returned as a string. In the file, the commentary starts +with the tag `Commentary' or `Documentation' and ends with one of the +tags `Code', `Change Log' or `History'." (save-excursion (if file (find-file file)) @@ -424,7 +425,7 @@ (move-to-column col t) (apply 'insert strings)) -(defun lm-verify (&optional file showok &optional verb) +(defun lm-verify (&optional file showok verb) "Check that the current buffer (or FILE if given) is in proper format. If FILE is a directory, recurse on its files and generate a report in a temporary buffer."