diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-05 18:29:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-05 18:29:16 -0400 |
| commit | 0286a11f3139dfd4bb9d3989ae860b8c128e12d0 (patch) | |
| tree | f326c074fba20b4e8dc78f54b6c74c180afa4942 /lisp/help-fns.el | |
| parent | aa356d03aeb13942ae6688ce919e0aa9fb4f1689 (diff) | |
| download | emacs-0286a11f3139dfd4bb9d3989ae860b8c128e12d0.tar.gz | |
(help-fns-function-description-header): Fix last change (bug#70209)
* lisp/help-fns.el (help-fns-function-description-header): Don't make
a button for the type if it's not a type.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 27011575333..cfe27077055 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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)) |