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

[Stefan Monnier]

branch: master
commit f994154d0895b3bbd4a763e379a90328b5e3d87d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/track-changes.el (track-changes--backtrace):  Fix prefix
---
 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)))