aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-05-06 13:54:21 +0000
committerStefan Monnier2003-05-06 13:54:21 +0000
commitf8daddcffbc9e2bd3e57874880ca40acf9943ef2 (patch)
tree8fe335cdd7eb5334b26752062cddd449219c4539
parentbe5d837275e73854597dd9e3375c6c648ef10c58 (diff)
downloademacs-f8daddcffbc9e2bd3e57874880ca40acf9943ef2.tar.gz
emacs-f8daddcffbc9e2bd3e57874880ca40acf9943ef2.zip
(help-add-fundoc-usage): Use t for "no arglist".
-rw-r--r--lisp/help-fns.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index c6011b62e97..7454f8ea105 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -176,9 +176,9 @@ DEF is the function whose usage we're looking for in DOC."
176 "Add the usage info to the docstring DOC. 176 "Add the usage info to the docstring DOC.
177If DOC already has a usage info, then just return DOC unchanged. 177If DOC already has a usage info, then just return DOC unchanged.
178The usage info is built from ARGLIST. DOC can be nil. 178The usage info is built from ARGLIST. DOC can be nil.
179ARGLIST can also be nil or a string of the form \"(fun ARG1 ARG2 ...)\"." 179ARGLIST can also be t or a string of the form \"(fun ARG1 ARG2 ...)\"."
180 (unless (stringp doc) (setq doc "Not documented")) 180 (unless (stringp doc) (setq doc "Not documented"))
181 (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" doc) (not arglist)) 181 (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" doc) (eq arglist t))
182 doc 182 doc
183 (format "%s%s%s" doc 183 (format "%s%s%s" doc
184 (if (string-match "\n?\n\\'" doc) 184 (if (string-match "\n?\n\\'" doc)