diff options
author | Phillip Lord <phillip.lord@russet.org.uk> | 2015-10-21 21:35:00 +0100 |
---|---|---|
committer | Phillip Lord <phillip.lord@russet.org.uk> | 2015-10-21 21:35:00 +0100 |
commit | a23aa4c9c99147bd6f36941fbae3a2d94c481bed (patch) | |
tree | 9fb1e0c478ab184407267172d33669c46538f072 | |
parent | 5dc48a2da9919f649952e75e54c48fda69a24ac3 (diff) | |
download | emacs-fix/ert-multiline-explanation.tar.gz |
Make ERT results print without newline escaping.fix/ert-multiline-explanation
-rw-r--r-- | lisp/emacs-lisp/ert.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 2eba0216faf..7d0d2546464 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -64,6 +64,7 @@ (require 'ewoc) (require 'find-func) (require 'help) +(require 'pp) ;;; UI customization options. @@ -1300,7 +1301,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 |