[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master be5917c2ea4: cl-generic.el: Fix docstring for methods with `cl-ca
From: |
Stefan Monnier |
Subject: |
master be5917c2ea4: cl-generic.el: Fix docstring for methods with `cl-call-next-method` |
Date: |
Mon, 14 Aug 2023 22:38:11 -0400 (EDT) |
branch: master
commit be5917c2ea46982763462bacf3997cce83f1967b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
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).
---
lisp/emacs-lisp/cl-generic.el | 8 ++++----
1 file 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) ""
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master be5917c2ea4: cl-generic.el: Fix docstring for methods with `cl-call-next-method`,
Stefan Monnier <=