branch: elpa/dslide
commit 50fffb5824730ebd4bd5927b25ed57b8c20184d8
Author: Psionik K <[email protected]>
Commit: Psionik K <[email protected]>
babel action should not use default implementation of end
Signed-off-by: Psionik K <[email protected]>
---
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)))
