[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Thien-Thi Nguyen]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Thien-Thi Nguyen <ttn>  06/06/12 07:50:58

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.843
retrieving revision 1.844
diff -u -b -r1.843 -r1.844
--- files.el    7 Jun 2006 01:20:28 -0000       1.843
+++ files.el    12 Jun 2006 07:50:58 -0000      1.844
@@ -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: "