mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/help-fns.el (help-fns-function-description-header): Fix bug#70209

Browse source 
Replace the whimsical "" default by something actually useful.
This commit is contained in:
Stefan Monnier 2024-04-05 07:41:42 -04:00
parent 64e1cfb98c
commit 200a0e5e7d
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/help-fns.el
View file

@ -1086,13 +1086,6 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
;; need to check macros before functions. ;; need to check macros before functions.
(macrop function)) (macrop function))
(concat beg "Lisp macro")) (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) ((keymapp def)
(let ((is-full nil) (let ((is-full nil)
(elts (cdr-safe def))) (elts (cdr-safe def)))
@ -1102,7 +1095,16 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
elts nil)) elts nil))
(setq elts (cdr-safe elts))) (setq elts (cdr-safe elts)))
(concat beg (if is-full "keymap" "sparse keymap")))) (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 (with-current-buffer standard-output
(insert description)) (insert description))