diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-08-29 21:59:42 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-08-29 22:58:51 -0400 |
| commit | 8710d11b481f3e6ec88276e11b12665983f0468f (patch) | |
| tree | e4c8105cb3a626741130da71ca0f15e1616e9f81 /lisp | |
| parent | 112fbe35153b2cb66b4daca32a84b18192c814db (diff) | |
| download | emacs-8710d11b481f3e6ec88276e11b12665983f0468f.tar.gz emacs-8710d11b481f3e6ec88276e11b12665983f0468f.tar.bz2 emacs-8710d11b481f3e6ec88276e11b12665983f0468f.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-fns.el | 10 |
1 files 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)) |