Only abort playback on C-g. WIP

During recording, I noticed certain last-input-events such as:

(file-notify ((30 . 0) (modify) "2024-12-29 21-00-31.mkv" 0)
file-notify--callback-inotify

These are not so helpful, but since I don't immediately know the range of other
such inputs, it was better to relax the checks.

C-g is supported.  Most users should know it and it will stop errant macros from
proceeding to destroy the system.

The comprehensive solution is to prevent fat-finger inputs in the first place.
It would be better to also support having the macro just dump remaining events
into unread-command-events whenever direction keys are called during playback.

I might still want to bind in the special map to block unwanted fat fingers.  It
is the only way to ensure that they don't corrupt the recorded sequence.

Author: psionic-k

NEWS.org

@@ -29,6 +29,7 @@ Fixing bugs and filling some gaps in new features.
 - ~dslide-deck-forward~ no longer no-ops in some circumstances
 - kmacro action properly skips over non-matching directions when both forward and backward elements are present in a slide
 - 🚧 kmacro playback of =M-<return>= and =M-<backspace>= and others is now correct.  There are likely more events that don't round trip nicely from ~last-kbd-macro~ through ~key-description~ and back through ~read-kbd-macro~.  *File issues*.
+- 🚧 kmacro playback no longer aborts when inputs from file-notify etc occur.  It can be quit with =C-g=.  A more comprehensive solution is being developed.
 * v0.6.0 Fighting Spam 💌
 - There is less markup (especially for babel)
 - Old actions are easier to use

dslide.el

@@ -2079,9 +2079,8 @@ some other input event and quit."
   (let ((frequency (plist-get args :frequency))
         (jitter (plist-get args :jitter))
         (events (plist-get args :events))
-        (last-input (plist-get args :last-input))
         (index (plist-get args :index)))
-    (if (eq last-input last-input-event)
+    (if (not (eq last-input-event 7))
         (if (length> events index)
             (let ((k (aref events index)))
               (setq unread-command-events (if unread-command-events
@@ -2092,14 +2091,12 @@ some other input event and quit."
                     (run-with-timer
                      (dslide--laplace-jitter frequency jitter)
                      nil #'dslide--kmacro-reanimate
-                     :last-input k
                      :events events :index (1+ index)
                      :frequency frequency :jitter jitter)))
           (setq dslide--kmacro-timer nil))
       ;; TODO attempt to block unwanted input.  Test other implementations.
       (setq dslide--kmacro-timer nil)
-      (message "Out-of-band input detected: %s" last-input-event)
-      (message "Aborting playback."))))
+      (message "Playback quit."))))
 
 (defun dslide--laplace-jitter (freq jitter)
   "Mutate FREQ by JITTER shape parameter.