From: Phillip Lord <phillip.lord@russet.org.uk>
Date: Mon, 26 Oct 2015 20:27:16 +0000 (+0000)
Subject: * lisp/emacs-lisp/ert.el: Print results without newline escaping
X-Git-Tag: emacs-25.0.90~1003^2^2~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c86118b4ba818ed1fd48258f884f95d98674693;p=emacs.git

* lisp/emacs-lisp/ert.el: Print results without newline escaping
---

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 2eba0216faf..21c1f1be394 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -64,7 +64,7 @@
 (require 'ewoc)
 (require 'find-func)
 (require 'help)
-
+(require 'pp)
 
 ;;; UI customization options.
 
@@ -1300,7 +1300,8 @@ EXPECTEDP specifies whether the result was expected."
 (defun ert--pp-with-indentation-and-newline (object)
   "Pretty-print OBJECT, indenting it to the current column of point.
 Ensures a final newline is inserted."
-  (let ((begin (point)))
+  (let ((begin (point))
+        (pp-escape-newlines nil))
     (pp object (current-buffer))
     (unless (bolp) (insert "\n"))
     (save-excursion