diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-04 12:48:47 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-04 12:48:47 +0200 |
| commit | 773d4104a592fda4366d8db27d0307ee23de8bfe (patch) | |
| tree | 68c2c41f37749ff81d9f18cd9fd53d7a1f46ece4 | |
| parent | f365607bc059169e5aa9f98c8418661d6fc6477d (diff) | |
| download | emacs-773d4104a592fda4366d8db27d0307ee23de8bfe.tar.gz | |
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).
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 13 |
1 files changed, 6 insertions, 7 deletions
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) |