(hack-local-variables-confirm):

Display string value using its printed representation.

2 files changed, 10 insertions, 1 deletions

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: "