[nongnu] elpa/dslide ec3bf9ec88 164/230: ! ditch :after in child action end method

[ELPA Syncer]

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

    ! ditch :after in child action end method
    
    drive-by fix, don't animate children during end.  Now that there are 
multiple
    animations, this became much more necessary
    
    ! The children could be made to not animate during end?
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/dslide.el b/dslide.el
index 9fe667273f..e2051ad165 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1718,11 +1718,13 @@ state from being at the first child heading."
         (setq progress (org-element-property :begin child))))
     progress))
 
-(cl-defmethod dslide-end :after ((obj dslide-child-action-slide))
-  (when-let ((child (dslide-deck-backward-child obj)))
+(cl-defmethod dslide-end ((obj dslide-child-action-slide))
+  (dslide-marker obj (org-element-property :end (dslide-heading obj)))
+  (when-let ((child (dslide-child-previous obj)))
     (let ((child (dslide--make-slide child (oref dslide--deck slide))))
-      (prog1 (dslide-end child)
-        (oset obj child child)))))
+      (oset obj child child)
+      (let (dslide-slide-in-effect)
+        (dslide-end child)))))
 
 (cl-defmethod dslide-final :after ((obj dslide-child-action-slide))
   (when-let ((child (oref obj child)))