Divide trace runs into pages for easy navigation

* lisp/emacs-lisp/trace.el (trace-make-advice): Set `page-delimiter'
based on `trace-separator'.

diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el
index 6c7834dd758a42552c196abbe39e33d23c9d4a69..28e2fbf88ae7c72342a96e85d64fdff4ff08b99d 100644 (file)
--- a/lisp/emacs-lisp/trace.el
+++ b/lisp/emacs-lisp/trace.el
@@ -259,6 +259,7 @@ be printed along with the arguments in the trace."
           (ctx (funcall context)))
       (unless inhibit-trace
         (with-current-buffer trace-buffer
+          (setq-local page-delimiter (format "^%s" (regexp-quote trace-separator)))
           (setq-local window-point-insertion-type t)
           (unless background (trace--display-buffer trace-buffer))
           (goto-char (point-max))