[nongnu] elpa/dslide 27b91284da 154/230: contents updates the progress indication

[ELPA Syncer]

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

    contents updates the progress indication
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/dslide.el b/dslide.el
index df411b1e51..88cc4394b6 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2704,9 +2704,15 @@ video or custom actions."
 (defun dslide-deck-forward ()
   "Advance slideshow forward."
   (interactive)
+  ;; TODO this does not display the buffer because we don't have any buffer
+  ;; tracking yet.  Babel integrations with other buffers must take care, as
+  ;; must presenters.
   (dslide--ensure-slide-buffer)
   (if (dslide--showing-contents-p)
-      (org-next-visible-heading 1)
+      (progn (org-next-visible-heading 1)
+             (while dslide--step-overlays
+               (delete-overlay (pop dslide--step-overlays)))
+             (dslide--follow (point)))
     (dslide--ensure-slide-buffer)
     (dslide-forward dslide--deck)))
 
@@ -2714,9 +2720,15 @@ video or custom actions."
 (defun dslide-deck-backward ()
   "Advance slideshow backward."
   (interactive)
+  ;; TODO this does not display the buffer because we don't have any buffer
+  ;; tracking yet.  Babel integrations with other buffers must take care, as
+  ;; must presenters.
   (dslide--ensure-slide-buffer)
   (if (dslide--showing-contents-p)
-      (org-previous-visible-heading 1)
+      (progn (org-previous-visible-heading 1)
+             (while dslide--step-overlays
+               (delete-overlay (pop dslide--step-overlays)))
+             (dslide--follow (point)))
     (dslide--ensure-slide-buffer)
     (dslide-backward dslide--deck)))