* lisp/help-fns.el (describe-variable): Add quotes to symbol value of origval.
This commit is contained in:
parent
da087965f2
commit
58fde6362f
1 changed files with 5 additions and 1 deletions
|
@ -1018,7 +1018,11 @@ it is displayed along with the global value."
|
|||
(not (equal origval :help-eval-error)))
|
||||
(princ "\nOriginal value was \n")
|
||||
(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
|
||||
(narrow-to-region from (point))
|
||||
(save-excursion (pp-buffer)))
|
||||
|
|
Loading…
Reference in a new issue