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

[Juri Linkov]

branch: master
commit 58fde6362f88e1d943ae033bda31becc67892112
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/help-fns.el (describe-variable): Add quotes to symbol value of 
origval.
---
 lisp/help-fns.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 235aa9a..14dea7d 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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)))