From e7b377f0233af4f86008225bd26d54c184817086 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 29 Jan 1999 14:31:49 +0000 Subject: [PATCH] (lm-verify): Fix arg list. (lm-commentary): Doc fix. --- lisp/emacs-lisp/lisp-mnt.el | 7 ++++--- 1 file 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." -- 2.39.2