mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Phillip Lord 2015-10-26 20:27:16 +00:00
parent 93dba9c2d7
commit 5c86118b4b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/ert.el
View File

@ -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