From 1d01499c02d19f9531c0ab1da4e530cf3c37c02c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 Oct 2024 12:54:04 -0400 Subject: [PATCH] * lisp/emacs-lisp/track-changes.el (track-changes--backtrace): Fix prefix (cherry picked from commit f994154d0895b3bbd4a763e379a90328b5e3d87d) --- lisp/emacs-lisp/track-changes.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el index 1b0f64f544d..7d1c928c92a 100644 --- a/lisp/emacs-lisp/track-changes.el +++ b/lisp/emacs-lisp/track-changes.el @@ -395,7 +395,7 @@ returned to a consistent state." ;;;; Auxiliary functions. -(defun track-change--backtrace (n &optional base) +(defun track-changes--backtrace (n &optional base) (let ((frames nil)) (catch 'done (mapbacktrace (lambda (&rest frame) @@ -403,7 +403,7 @@ returned to a consistent state." (push frame frames) (push '... frames) (throw 'done nil))) - (or base #'track-change--backtrace))) + (or base #'track-changes--backtrace))) (nreverse frames))) (defun track-changes--trace () @@ -415,7 +415,7 @@ returned to a consistent state." (setq track-changes--trace (make-ring 10))) (ring-insert track-changes--trace (cons (buffer-name) - (track-change--backtrace + (track-changes--backtrace 10 #'track-changes--trace))))) (defun track-changes--clean-state () @@ -487,7 +487,7 @@ backtraces have the deepest frame first.") (warn "Missing/incorrect calls to `before/after-change-functions'!! Details logged to `track-changes--error-log'") (push (vector (buffer-name) info - (track-change--backtrace + (track-changes--backtrace 50 #'track-changes--recover-from-error) (let ((rk (recent-keys 'include-cmds))) (if (< (length rk) 20) rk (substring rk -20))) -- 2.39.5