emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/dslide 6de2d70e6a 086/230: Clean up any pushed callbacks


From: ELPA Syncer
Subject: [nongnu] elpa/dslide 6de2d70e6a 086/230: Clean up any pushed callbacks
Date: Sun, 7 Jul 2024 19:00:19 -0400 (EDT)

branch: elpa/dslide
commit 6de2d70e6a9ced7018917db20d836f0f12784b18
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    Clean up any pushed callbacks
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 macro-slides.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/macro-slides.el b/macro-slides.el
index 6c61ff09b5..03f7355edf 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -700,7 +700,6 @@ their init."
 ;; progress, we're done.
 
 (cl-defmethod ms-step-forward ((obj ms-deck))
-  ;; TODO Check for forward callbacks
   (unless (oref obj slide)
     ;; Calls implied from other commands should have started the lifecycle
     ;; already
@@ -762,7 +761,6 @@ their init."
       (ms--feedback :forward))
 
     (when reached-end
-      ;; TODO exhaust any remaining next slide callbacks
       (run-hooks 'ms-after-last-slide-hook))))
 
 (cl-defmethod ms-step-backward ((obj ms-deck))
@@ -2171,6 +2169,9 @@ and the value of `point-max' should contain a newline 
somewhere."
   (ms--delete-header)
   (ms--delete-overlays)
   (ms--animation-cleanup)
+  (mapc (lambda (f) (funcall f nil))
+        (oref ms--deck step-callbacks))
+  (oset ms--deck step-callbacks nil)
   (remove-hook 'post-command-hook #'ms--contents-hl-line t))
 
 (defun ms--ensure-deck ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]