diff options
| author | Stefan Monnier | 2023-08-14 22:37:51 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-08-14 22:38:01 -0400 |
| commit | be5917c2ea46982763462bacf3997cce83f1967b (patch) | |
| tree | 6119d5387e588be69741c9e5cb6a67e22430e7c7 | |
| parent | a8365aa841d9ca6bafedccae0970e4a269c1e933 (diff) | |
| download | emacs-be5917c2ea46982763462bacf3997cce83f1967b.tar.gz 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).
| -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'." | |||
| 1101 | (qualifiers (cl--generic-method-qualifiers method)) | 1101 | (qualifiers (cl--generic-method-qualifiers method)) |
| 1102 | (call-con (cl--generic-method-call-con method)) | 1102 | (call-con (cl--generic-method-call-con method)) |
| 1103 | (function (cl--generic-method-function method)) | 1103 | (function (cl--generic-method-function method)) |
| 1104 | (args (help-function-arglist (if (not (eq call-con 'curried)) | 1104 | (function (if (not (eq call-con 'curried)) |
| 1105 | function | 1105 | function |
| 1106 | (funcall function #'ignore)) | 1106 | (funcall function #'ignore))) |
| 1107 | 'names)) | 1107 | (args (help-function-arglist function 'names)) |
| 1108 | (docstring (documentation function)) | 1108 | (docstring (documentation function)) |
| 1109 | (qual-string | 1109 | (qual-string |
| 1110 | (if (null qualifiers) "" | 1110 | (if (null qualifiers) "" |