From 8710d11b481f3e6ec88276e11b12665983f0468f Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Tue, 29 Aug 2017 21:59:42 -0400 Subject: [PATCH] Use cl-print for all values printed by `describe-variable' * lisp/help-fns.el (describe-variable): Use cl-prin1 for original and global values too. --- lisp/help-fns.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index cb0b2d71d33..15b2c07ba2f 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -883,7 +883,10 @@ it is displayed along with the global value." (not (equal origval :help-eval-error))) (princ "\nOriginal value was \n") (setq from (point)) - (pp origval) + (cl-prin1 origval) + (save-restriction + (narrow-to-region from (point)) + (save-excursion (pp-buffer))) (if (< (point) (+ from 20)) (delete-region (1- from) from))))))) (terpri) @@ -909,7 +912,10 @@ it is displayed along with the global value." ;; probably print it raw once and check it's a ;; sensible size before prettyprinting. -- fx (let ((from (point))) - (pp global-val) + (cl-prin1 global-val) + (save-restriction + (narrow-to-region from (point)) + (save-excursion (pp-buffer))) ;; See previous comment for this function. ;; (help-xref-on-pp from (point)) (if (< (point) (+ from 20)) -- 2.39.2