procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

* lisp/help-fns.el (describe-variable): Add quotes to symbol value of origval.

Browse source
This commit is contained in:
Juri Linkov 2019-11-03 23:52:23 +02:00
parent da087965f2
commit 58fde6362f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/help-fns.el
View file

@ -1018,7 +1018,11 @@ it is displayed along with the global value."
(not (equal origval :help-eval-error))) (not (equal origval :help-eval-error)))
(princ "\nOriginal value was \n") (princ "\nOriginal value was \n")
(setq from (point)) (setq from (point))
(cl-prin1 origval) (if (and (symbolp origval) (not (booleanp origval)))
(let* ((rep (cl-prin1-to-string origval))
(print-rep (format-message "`%s'" rep)))
(insert print-rep))
(cl-prin1 origval))
(save-restriction (save-restriction
(narrow-to-region from (point)) (narrow-to-region from (point))
(save-excursion (pp-buffer))) (save-excursion (pp-buffer)))