diff options
| author | Dave Love <fx@gnu.org> | 1999-01-29 14:31:49 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-01-29 14:31:49 +0000 |
| commit | e7b377f0233af4f86008225bd26d54c184817086 (patch) | |
| tree | 0dbf21dc874f23feab38a2572a58d5ee62c476c9 /lisp/emacs-lisp/lisp-mnt.el | |
| parent | ba2c6e75173dc964d7909efdd38fc1cf5e3f7d9b (diff) | |
| download | emacs-e7b377f0233af4f86008225bd26d54c184817086.tar.gz emacs-e7b377f0233af4f86008225bd26d54c184817086.tar.bz2 emacs-e7b377f0233af4f86008225bd26d54c184817086.zip | |
(lm-verify): Fix arg list.
(lm-commentary): Doc fix.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 09e1218d4e6..47e64294699 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -395,8 +395,9 @@ distribution." (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 @@ with tag `Commentary' and ends with tag `Change Log' or `History'." (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." |