From 23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Fri, 30 Jun 2017 23:25:42 -0400 Subject: [PATCH] * lisp/help-fns.el (describe-variable): Let-bind cl-print-compiled-button. --- lisp/help-fns.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 32324ae3bcb..d7c31f9e2b8 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -776,6 +776,8 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound." version package)))))) output)) +(defvar cl-print-compiled-button) + ;;;###autoload (defun describe-variable (variable &optional buffer frame) "Display the full documentation of VARIABLE (a symbol). @@ -856,7 +858,8 @@ it is displayed along with the global value." (print-rep (let ((rep (let ((print-quoted t) - (print-circle t)) + (print-circle t) + (cl-print-compiled-button t)) (cl-prin1-to-string val)))) (if (and (symbolp val) (not (booleanp val))) (format-message "`%s'" rep) -- 2.39.2