procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/track-changes.el (track-changes--backtrace): Fix prefix

Browse source
This commit is contained in:
Stefan Monnier 2024-10-17 12:54:04 -04:00
parent 4690f2f44d
commit f994154d08
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/track-changes.el
View file

@ -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)))