diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-05-27 22:40:46 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-06-29 19:40:23 -0400 |
| commit | b567c48869b1484c6b1d263afc5cb67f22e99125 (patch) | |
| tree | b32e9187f657196277bccdf3cd49666f92a8f8d7 /lisp/emacs-lisp | |
| parent | eb9d3eca801c1ea847956a96fafd29eef9bbe5d1 (diff) | |
| download | emacs-b567c48869b1484c6b1d263afc5cb67f22e99125.tar.gz emacs-b567c48869b1484c6b1d263afc5cb67f22e99125.tar.bz2 emacs-b567c48869b1484c6b1d263afc5cb67f22e99125.zip | |
Don't redundantly cl-print arglist in function docstring again
* lisp/emacs-lisp/cl-print.el (cl-print-object): Don't print arglist
part of docstring.
* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-1): Update
test accordingly.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el index 89a71d1b6c5..824d0b7b4f5 100644 --- a/lisp/emacs-lisp/cl-print.el +++ b/lisp/emacs-lisp/cl-print.el @@ -105,10 +105,11 @@ into a button whose action shows the function's disassembly.") (if args (prin1 args stream) (princ "()" stream))) - (let ((doc (documentation object 'raw))) - (when doc - (princ " " stream) - (prin1 doc stream))) + (pcase (help-split-fundoc (documentation object 'raw) object) + ;; Drop args which `help-function-arglist' already printed. + (`(,_usage . ,(and doc (guard (stringp doc)))) + (princ " " stream) + (prin1 doc stream))) (let ((inter (interactive-form object))) (when inter (princ " " stream) |