diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-08-14 22:37:51 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-08-14 22:38:01 -0400 |
| commit | be5917c2ea46982763462bacf3997cce83f1967b (patch) | |
| tree | 6119d5387e588be69741c9e5cb6a67e22430e7c7 /lisp/emacs-lisp | |
| parent | a8365aa841d9ca6bafedccae0970e4a269c1e933 (diff) | |
| download | emacs-be5917c2ea46982763462bacf3997cce83f1967b.tar.gz emacs-be5917c2ea46982763462bacf3997cce83f1967b.tar.bz2 emacs-be5917c2ea46982763462bacf3997cce83f1967b.zip | |
cl-generic.el: Fix docstring for methods with `cl-call-next-method`
* lisp/emacs-lisp/cl-generic.el (cl--generic-method-info):
Fix docstring extraction for "curried" methods (bug#65270).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index b062c280a41..dec14bd5df6 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -1101,10 +1101,10 @@ MET-NAME is as returned by `cl--generic-load-hist-format'." (qualifiers (cl--generic-method-qualifiers method)) (call-con (cl--generic-method-call-con method)) (function (cl--generic-method-function method)) - (args (help-function-arglist (if (not (eq call-con 'curried)) - function - (funcall function #'ignore)) - 'names)) + (function (if (not (eq call-con 'curried)) + function + (funcall function #'ignore))) + (args (help-function-arglist function 'names)) (docstring (documentation function)) (qual-string (if (null qualifiers) "" |