From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 May 2003 13:54:21 +0000 (+0000)
Subject: (help-add-fundoc-usage): Use t for "no arglist".
X-Git-Tag: ttn-vms-21-2-B4~10300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8daddcffbc9e2bd3e57874880ca40acf9943ef2;p=emacs.git

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

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."
   "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)