[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8710d11 2/2: Use cl-print for all values printed by
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] master 8710d11 2/2: Use cl-print for all values printed by `describe-variable' |
Date: |
Tue, 29 Aug 2017 23:17:26 -0400 (EDT) |
branch: master
commit 8710d11b481f3e6ec88276e11b12665983f0468f
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
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 cb0b2d7..15b2c07 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))