From c063ca0794722ccc863d2714d802e240815419e9 Mon Sep 17 00:00:00 2001 From: Phil Sainty Date: Sat, 23 Jul 2022 21:04:13 +1200 Subject: [PATCH] Divide trace runs into pages for easy navigation * lisp/emacs-lisp/trace.el (trace-make-advice): Set `page-delimiter' based on `trace-separator'. --- lisp/emacs-lisp/trace.el | 1 + 1 file changed, 1 insertion(+) 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)) -- 2.39.5