From: Noam Postavsky <npostavs@gmail.com>
Date: Wed, 30 Aug 2017 01:59:42 +0000 (-0400)
Subject: Use cl-print for all values printed by `describe-variable'
X-Git-Tag: emacs-26.0.90~303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8710d11b481f3e6ec88276e11b12665983f0468f;p=emacs.git

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.
---

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))