master 338f5667f4: Further tweaks to cl--generic-describe

[Lars Ingebrigtsen]

branch: master
commit 338f5667f46282f9b40c25bbf9704566069ec950
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Further tweaks to cl--generic-describe
    
    * lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Further
    tweak the look of the implementation output.
---
 lisp/emacs-lisp/cl-generic.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 1e820adaff..2ca84b019f 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -1096,7 +1096,13 @@ 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.
-            (insert (format "%s%S" (nth 0 info) (cons function (nth 1 info))))
+            (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* ((met-name (cl--generic-load-hist-format
                               function
                               (cl--generic-method-qualifiers method)