[nongnu] elpa/dslide 50fffb5824 124/230: babel action should not use default implementation of end

[ELPA Syncer]

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

    babel action should not use default implementation of end
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/dslide.el b/dslide.el
index c398aebcad..d7a10e742c 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1460,7 +1460,10 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
   (when-let ((block-elements (dslide--get-blocks obj "begin")))
     (mapc #'dslide--block-execute block-elements)))
 
-(cl-defmethod dslide-end :after ((obj dslide-action-babel))
+(cl-defmethod dslide-end ((obj dslide-action-babel))
+  ;; Do not use the default implementation because it will play all blocks
+  ;; forward.
+  (dslide-marker obj (org-element-property :end (dslide-heading obj)))
   (when-let ((block-elements (dslide--get-blocks obj "end")))
     (mapc #'dslide--block-execute block-elements)))