mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Use cl-print for all values printed by `describe-variable'

Browse Source 
* lisp/help-fns.el (describe-variable): Use cl-prin1 for original and
global values too.
This commit is contained in:
Noam Postavsky 2017-08-29 21:59:42 -04:00
parent 112fbe3515
commit 8710d11b48
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/help-fns.el
View File

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