Mercurial > emacs
changeset 50841:e19ad6e42e63
(help-add-fundoc-usage): Use t for "no arglist".
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 May 2003 13:54:21 +0000 |
| parents | 93dd5ef4e12e |
| children | b64d29a02737 |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-fns.el Tue May 06 10:40:35 2003 +0000 +++ b/lisp/help-fns.el Tue May 06 13:54:21 2003 +0000 @@ -176,9 +176,9 @@ "Add the usage info to the docstring DOC. If DOC already has a usage info, then just return DOC unchanged. The usage info is built from ARGLIST. DOC can be nil. -ARGLIST can also be nil or a string of the form \"(fun ARG1 ARG2 ...)\"." +ARGLIST can also be t or a string of the form \"(fun ARG1 ARG2 ...)\"." (unless (stringp doc) (setq doc "Not documented")) - (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" doc) (not arglist)) + (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" doc) (eq arglist t)) doc (format "%s%s%s" doc (if (string-match "\n?\n\\'" doc)