From: Phil Sainty <psainty@orcon.net.nz>
Date: Sat, 23 Jul 2022 09:04:13 +0000 (+1200)
Subject: Divide trace runs into pages for easy navigation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c063ca0794722ccc863d2714d802e240815419e9;p=emacs.git

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 6c7834dd758..28e2fbf88ae 100644
--- 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))