# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052229261 0
# Node ID e19ad6e42e63ddbc351418b68fd913db4d2f4ee8
# Parent  93dd5ef4e12e2d900f0e13f2dc4e32c1fbb16153
(help-add-fundoc-usage): Use t for "no arglist".

diff -r 93dd5ef4e12e -r e19ad6e42e63 lisp/help-fns.el
--- 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)