mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(help-add-fundoc-usage): Use t for "no arglist".

Browse Source
This commit is contained in:
Stefan Monnier 2003-05-06 13:54:21 +00:00
parent be5d837275
commit f8daddcffb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/help-fns.el
View File

@ -176,9 +176,9 @@ DEF is the function whose usage we're looking for in DOC."
"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)