From: Juri Linkov <juri@linkov.net>
Date: Sun, 3 Nov 2019 21:52:23 +0000 (+0200)
Subject: * lisp/help-fns.el (describe-variable): Add quotes to symbol value of origval.
X-Git-Tag: emacs-27.0.90~747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58fde6362f88e1d943ae033bda31becc67892112;p=emacs.git

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 235aa9a6e19..14dea7de9b7 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)))