From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Mon, 12 Jun 2006 07:52:05 +0000 (+0000)
Subject: (hack-local-variables-confirm):
X-Git-Tag: emacs-pretest-22.0.90~1981
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15a8ea0ca622d10b8abc325af746c7597a707fff;p=emacs.git

(hack-local-variables-confirm):
Display string value using its printed representation.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a3aef6eb37..ad37f74b87b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-12  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* files.el (hack-local-variables-confirm):
+	Display string value using its printed representation.
+
 2006-06-11  Chong Yidong  <cyd@stupidchicken.com>
 
 	* server.el (server-edit): No-op if no server buffers exist.
diff --git a/lisp/files.el b/lisp/files.el
index b4bc8f9ffec..91f857dd2ec 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2406,7 +2406,11 @@ n  -- to ignore the local variables list.")
 		   (insert "    ")))
 	    (princ (car elt) buf)
 	    (insert " : ")
-	    (princ (cdr elt) buf)
+            (if (stringp (cdr elt))
+                ;; Make strings with embedded whitespace easier to read.
+                (let ((print-escape-newlines t))
+                  (prin1 (cdr elt) buf))
+              (princ (cdr elt) buf))
 	    (insert "\n"))
 	  (setq prompt
 		(format "Please type %s%s: "