[nongnu] elpa/dslide 8dd7b6490b 206/230: enable clearing results going backward and after exiting the slide

[ELPA Syncer]

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

    enable clearing results going backward and after exiting the slide
    
    keeps things tidier
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/dslide.el b/dslide.el
index 4cc5492c04..d267bb0985 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1437,6 +1437,8 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
 (cl-defmethod dslide-end ((obj dslide-action-babel))
   ;; Do not use the default implementation because it will play all blocks
   ;; forward.
+  (when (oref obj remove-results)
+    (dslide--clear-all-results obj))
   (dslide--hide-non-exports obj)
   (dslide-marker obj (org-element-property :end (dslide-heading obj)))
   (when-let ((block-elements (dslide--get-blocks obj "end")))
@@ -1444,7 +1446,9 @@ stateful-sequence class methods.  METHOD-NAME is a 
string."
 
 (cl-defmethod dslide-final :after ((obj dslide-action-babel))
   (when-let ((block-elements (dslide--get-blocks obj "final")))
-    (mapc #'dslide--block-execute block-elements)))
+    (mapc #'dslide--block-execute block-elements))
+  (when (oref obj remove-results)
+    (dslide--clear-all-results obj)))
 
 ;; ** Image Action