[nongnu] elpa/dslide 02ee2cfd4a 1/2: Experimental change to buffer coordination

[ELPA Syncer]

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

    Experimental change to buffer coordination
    
    It's extremely easy for controls to become messed up based on buffer 
selection.
    This is an area where buffer coordination is needed.
    
    This was a first-draft designed to tweak the behavior when controlling the
    presentation while looking at the base buffer to perhaps follow along.
---
 dslide.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/dslide.el b/dslide.el
index 4f40b010ac..8a0326cdb4 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2937,7 +2937,13 @@ video or custom actions."
                (delete-overlay (pop dslide--step-overlays)))
              (dslide--follow (point)))
     (dslide--ensure-slide-buffer)
-    (dslide-forward dslide--deck)))
+    (if (eq (oref dslide--deck base-buffer)
+            (window-buffer (selected-window)))
+        (if-let ((window (get-buffer-window
+                          (oref dslide--deck slide-buffer))))
+            (with-selected-window window
+              (dslide-forward dslide--deck)))
+      (dslide-forward dslide--deck))))
 
 ;;;###autoload
 (defun dslide-deck-backward ()