From 870e3653b28521aa93ea1e84e7a33a81e7d6a43a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 17 Apr 2024 09:04:12 -0400 Subject: [PATCH] track-changes.el: Fix last change for early use * lisp/emacs-lisp/track-changes.el (track-changes--recover-from-error): Don't burp if there have been fewer than 20 keystrokes since Emacs start. (cherry picked from commit 3660c51736072816b65265e60e0b7475375e2a73) --- lisp/emacs-lisp/track-changes.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el index 6e4440b7771..03d031deb4d 100644 --- a/lisp/emacs-lisp/track-changes.el +++ b/lisp/emacs-lisp/track-changes.el @@ -442,7 +442,7 @@ Details logged to `track-changes--error-log'") (when tail (setcdr tail '...)) bf) (let ((rk (recent-keys 'include-cmds))) - (substring rk -20))) + (if (< (length rk) 20) rk (substring rk -20)))) track-changes--error-log)) (setq track-changes--before-clean 'unset) (setq track-changes--buffer-size (buffer-size)) -- 2.39.5