|
| From: | Phil Sainty |
| Subject: | scratch/bulk-tracing c063ca0794 1/3: Divide trace runs into pages for easy navigation |
| Date: | Fri, 29 Jul 2022 04:31:21 -0400 (EDT) |
branch: scratch/bulk-tracing
commit c063ca0794722ccc863d2714d802e240815419e9
Author: Phil Sainty <psainty@orcon.net.nz>
Commit: Phil Sainty <psainty@orcon.net.nz>
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 6c7834dd75..28e2fbf88a 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))
| [Prev in Thread] | Current Thread | [Next in Thread] |