mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki 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
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)