diff options
| author | Stefan Monnier | 2003-05-06 13:54:21 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-06 13:54:21 +0000 |
| commit | f8daddcffbc9e2bd3e57874880ca40acf9943ef2 (patch) | |
| tree | 8fe335cdd7eb5334b26752062cddd449219c4539 | |
| parent | be5d837275e73854597dd9e3375c6c648ef10c58 (diff) | |
| download | emacs-f8daddcffbc9e2bd3e57874880ca40acf9943ef2.tar.gz emacs-f8daddcffbc9e2bd3e57874880ca40acf9943ef2.zip | |
(help-add-fundoc-usage): Use t for "no arglist".
| -rw-r--r-- | lisp/help-fns.el | 4 |
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. |
| 177 | If DOC already has a usage info, then just return DOC unchanged. | 177 | If DOC already has a usage info, then just return DOC unchanged. |
| 178 | The usage info is built from ARGLIST. DOC can be nil. | 178 | The usage info is built from ARGLIST. DOC can be nil. |
| 179 | ARGLIST can also be nil or a string of the form \"(fun ARG1 ARG2 ...)\"." | 179 | ARGLIST 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) |