From 58fde6362f88e1d943ae033bda31becc67892112 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 3 Nov 2019 23:52:23 +0200 Subject: [PATCH] * 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 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))) -- 2.39.5