From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 17 Apr 2024 13:04:12 +0000 (-0400)
Subject: track-changes.el: Fix last change for early use
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=870e3653b28521aa93ea1e84e7a33a81e7d6a43a;p=emacs.git

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

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