diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-06-30 23:25:42 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-06-30 23:30:07 -0400 |
| commit | 23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0 (patch) | |
| tree | 806decfbea06fd7b7e8faab56f9c7af7e2aae56d /lisp | |
| parent | 6fb45b7b368c8041936c52f2b2c261136c070721 (diff) | |
| download | emacs-23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0.tar.gz emacs-23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0.tar.bz2 emacs-23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0.zip | |
* lisp/help-fns.el (describe-variable): Let-bind cl-print-compiled-button.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-fns.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |