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

(help-fns-function-description-header): Fix last change (bug#70209)

Browse source 
* lisp/help-fns.el (help-fns-function-description-header): Don't make
a button for the type if it's not a type.
This commit is contained in:
Stefan Monnier 2024-04-05 18:29:16 -04:00
parent aa356d03ae
commit 0286a11f31
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/help-fns.el
View file

@ -1096,15 +1096,15 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(setq elts (cdr-safe elts)))
(concat beg (if is-full "keymap" "sparse keymap"))))
(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)))))))))
(concat beg (format "%s"
(if (and (consp def) (symbolp (car def)))
(car def)
(let ((type (or (oclosure-type def)
(cl-type-of def))))
(make-text-button
(symbol-name type) nil
'type 'help-type
'help-args (list type))))))))))
(with-current-buffer standard-output
(insert description))