emacs-diffs
[Top][All Lists]
Advanced

[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) ""



reply via email to

[Prev in Thread] Current Thread [Next in Thread]