master 3660c517360: track-changes.el: Fix last change for early use

[Stefan Monnier]

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

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