From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 4 Apr 2022 10:48:47 +0000 (+0200)
Subject: Further fixes for cl--generic-describe and (function ...)
X-Git-Tag: emacs-29.0.90~1931^2~783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=773d4104a592fda4366d8db27d0307ee23de8bfe;p=emacs.git

Further fixes for cl--generic-describe and (function ...)

* lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Fix the #'
problem for defmethods, too (bug#54628).
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 2ca84b019fc..179310c145b 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -1096,13 +1096,12 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
         (dolist (method (cl--generic-method-table generic))
           (let* ((info (cl--generic-method-info method)))
             ;; FIXME: Add hyperlinks for the types as well.
-            (if (length> (nth 0 info) 0)
-                (insert (format "%s%S" (nth 0 info)
-                                (let ((print-quoted nil))
-                                  (nth 1 info))))
-              ;; Make the non-":extra" bits look more like `C-h f'
-              ;; output.
-              (insert (format "%S" (cons function (nth 1 info)))))
+            (let ((print-quoted nil))
+              (if (length> (nth 0 info) 0)
+                  (insert (format "%s%S" (nth 0 info) (nth 1 info)))
+                ;; Make the non-":extra" bits look more like `C-h f'
+                ;; output.
+                (insert (format "%S" (cons function (nth 1 info))))))
             (let* ((met-name (cl--generic-load-hist-format
                               function
                               (cl--generic-method-qualifiers method)