master 773d4104a5: Further fixes for cl--generic-describe and (function ...)

[Lars Ingebrigtsen]

branch: master
commit 773d4104a592fda4366d8db27d0307ee23de8bfe
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/emacs-lisp/cl-generic.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 2ca84b019f..179310c145 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)