From: Dave Love <fx@gnu.org>
Date: Fri, 29 Jan 1999 14:31:49 +0000 (+0000)
Subject: (lm-verify): Fix arg list.
X-Git-Tag: emacs-20.4~730
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7b377f0233af4f86008225bd26d54c184817086;p=emacs.git

(lm-verify): Fix arg list.
(lm-commentary): Doc fix.
---

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."