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.

diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el
index 6e4440b7771eccf0603f0b12b450ae15d58147ae..03d031deb4d787678509c6873e2168a56cef5f87 100644 (file)
--- 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))