diff options
| -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) |