procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Further tweaks to cl--generic-describe

Browse source 
* lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Further
tweak the look of the implementation output.
This commit is contained in:
Lars Ingebrigtsen 2022-04-02 15:19:05 +02:00
parent d86e47c860
commit 338f5667f4
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-generic.el
View file

@ -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)