diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-02 15:19:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-02 15:19:15 +0200 |
| commit | 338f5667f46282f9b40c25bbf9704566069ec950 (patch) | |
| tree | 7713cb5e6efeba8dd3b2c9acfdbb5f4424ea640d /lisp/emacs-lisp | |
| parent | d86e47c86056e7bb80a75d9620428895b309f723 (diff) | |
| download | emacs-338f5667f46282f9b40c25bbf9704566069ec950.tar.gz emacs-338f5667f46282f9b40c25bbf9704566069ec950.tar.bz2 emacs-338f5667f46282f9b40c25bbf9704566069ec950.zip | |
Further tweaks to cl--generic-describe
* lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Further
tweak the look of the implementation output.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 1e820adaff6..2ca84b019fc 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) |