[nongnu] elpa/dslide ca778812bf 077/230: Start at beginning of heading to implement end

[ELPA Syncer]

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

    Start at beginning of heading to implement end
    
    The children are obtained by repeatedly calling `ms-forward-child', so it's
    necessary to start at the beginning.  Each child is sent to its finished 
state
    by calling `ms-end'.  It might also work if they were hydrated in reverse, 
but
    this simulates the play-from-beginning style of reaching the end.
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 macro-slides.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/macro-slides.el b/macro-slides.el
index 668b1e53e2..397264d057 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -1716,6 +1716,7 @@ child is found."
     (not (null progress))))
 
 (cl-defmethod ms-end :after ((obj ms-child-action-inline))
+  (ms-marker obj (org-element-property :begin (ms-heading obj)))
   (let (exhausted)
     (while (not exhausted)
       ;; If the child didn't make progress, try to load up the next child