changeset 71321:e2c7eb3cbb0c

(hack-local-variables-confirm): Display string value using its printed representation.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Mon, 12 Jun 2006 07:50:58 +0000
parents 59c8b05c2ce4
children 35554e4f7699
files lisp/files.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Jun 11 18:59:31 2006 +0000
+++ b/lisp/files.el	Mon Jun 12 07:50:58 2006 +0000
@@ -2406,7 +2406,11 @@
 		   (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: "