scratch/bulk-tracing 41df88dca8 2/2: fixup! New commands for bulk tracing of elisp functions (bug#27397)

[Phil Sainty]

branch: scratch/bulk-tracing
commit 41df88dca8274e5ec16dd35de3c2afb48ade6e74
Author: Phil Sainty <psainty@orcon.net.nz>
Commit: Phil Sainty <psainty@orcon.net.nz>

    fixup! New commands for bulk tracing of elisp functions (bug#27397)
    
    Rebase over master.
---
 lisp/emacs-lisp/trace.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el
index 690276f986..9ebaed078a 100644
--- a/lisp/emacs-lisp/trace.el
+++ b/lisp/emacs-lisp/trace.el
@@ -321,15 +321,15 @@ Autoloaded functions are traceable."
   "Read a buffer and a \"context\" (Lisp expression).
 Return (BUFFER CONTEXT)."
   (list
-   (read-buffer (format-prompt "Output to buffer" trace-buffer))
+   (read-buffer "Output to buffer" trace-buffer)
    (let ((exp
-          (let ((minibuffer-completing-symbol t))
-            (read-from-minibuffer "Context expression: "
-                                  nil read-expression-map t
-                                  'read-expression-history "nil"))))
+          (read-from-minibuffer "Context expression: "
+                                nil read-expression-map t
+                                'read-expression-history "nil")))
      (and exp
           (lambda ()
-            (let ((print-circle t))
+            (let ((print-circle t)
+                  (print-escape-newlines t))
               (concat " [" (prin1-to-string (eval exp t)) "]")))))))
 
 ;;;###autoload