From c4756dcd0026d8d993a03387c16ac571b1bb5423 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 5 Apr 2024 18:29:16 -0400 Subject: [PATCH] (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. (cherry picked from commit 0286a11f3139dfd4bb9d3989ae860b8c128e12d0) --- lisp/help-fns.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 843293f80ce..7abed6c66bf 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1139,15 +1139,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)) -- 2.39.5