diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/track-changes.el | 8 |
1 files 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))) |