diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-05 07:41:42 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-05 07:41:42 -0400 |
| commit | 200a0e5e7d589256d9aad79ff0e9b74b579e7f5e (patch) | |
| tree | 432a1fba3fe825105215c8a53717723fe587270b /lisp/help-fns.el | |
| parent | 64e1cfb98cbad24fbc72502f6529725cbe202101 (diff) | |
| download | emacs-200a0e5e7d589256d9aad79ff0e9b74b579e7f5e.tar.gz | |
* lisp/help-fns.el (help-fns-function-description-header): Fix bug#70209
Replace the whimsical "" default by something actually useful.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a291893e9a2..27011575333 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1086,13 +1086,6 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." ;; need to check macros before functions. (macrop function)) (concat beg "Lisp macro")) - ((atom def) - (let ((type (or (oclosure-type def) (cl-type-of def)))) - (concat beg (format "%s" - (make-text-button - (symbol-name type) nil - 'type 'help-type - 'help-args (list type)))))) ((keymapp def) (let ((is-full nil) (elts (cdr-safe def))) @@ -1102,7 +1095,16 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." elts nil)) (setq elts (cdr-safe elts))) (concat beg (if is-full "keymap" "sparse keymap")))) - (t "")))) + (t + (let ((type + (if (and (consp def) (symbolp (car def))) + (car def) + (or (oclosure-type def) (cl-type-of def))))) + (concat beg (format "%s" + (make-text-button + (symbol-name type) nil + 'type 'help-type + 'help-args (list type))))))))) (with-current-buffer standard-output (insert description)) |