From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 25 Nov 2015 07:15:28 +0000 (-0800)
Subject: Disambiguate variable help a bit better
X-Git-Tag: emacs-25.0.90~652
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36311ec8d12f88e5ad0a6a5ff845b0b307f4ea13;p=emacs.git

Disambiguate variable help a bit better

* lisp/help-fns.el (describe-variable): Quote the
variable’s value if it is a symbol other than t or nil.
See: T.V Raman in:
http://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02147.html
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 41911b8709c..e750f51e0c4 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -763,8 +763,12 @@ it is displayed along with the global value."
 		(let ((from (point))
 		      (line-beg (line-beginning-position))
 		      (print-rep
-		       (let ((print-quoted t))
-			 (prin1-to-string val))))
+		       (let ((rep
+			      (let ((print-quoted t))
+				(prin1-to-string val))))
+			 (if (and (symbolp val) (not (booleanp val)))
+			     (format-message "`%s'" rep)
+			   rep))))
 		  (if (< (+ (length print-rep) (point) (- line-beg)) 68)
 		      (insert print-rep)
 		    (terpri)