File tree Expand file tree Collapse file tree 1 file changed +11
-12
lines changed Expand file tree Collapse file tree 1 file changed +11
-12
lines changed Original file line number Diff line number Diff line change @@ -1592,16 +1592,16 @@ Child headings become independent slides.")
1592
1592
; ; For child slides, we make a slide out of the next child heading and advance
1593
1593
; ; our progress forward to the end of that child
1594
1594
(or (when-let ((child (oref obj child)))
1595
- (if-let ((progress (dslide-forward child)))
1596
- progress
1597
- (dslide-final child)
1598
- (oset obj child nil )))
1599
- (when-let ((child-heading (dslide-child-next obj)))
1600
- ; ; TODO transitive action customization
1601
- (let ((child (dslide--make-slide child-heading)))
1602
- (dslide-begin child)
1603
- (oset obj child child)
1604
- (oref child begin)))))
1595
+ (if-let ((progress (dslide-forward child)))
1596
+ progress
1597
+ (dslide-final child)
1598
+ (oset obj child nil )))
1599
+ (when-let ((child-heading (dslide-child-next obj)))
1600
+ ; ; TODO transitive action customization
1601
+ (let ((child (dslide--make-slide child-heading)))
1602
+ (dslide-begin child)
1603
+ (oset obj child child)
1604
+ (oref child begin)))))
1605
1605
1606
1606
(cl-defmethod dslide-backward ((obj dslide-slide-action-child))
1607
1607
; ; For child slides, we make a slide out of the previous child heading and
@@ -1639,8 +1639,7 @@ Child headings become independent slides.")
1639
1639
(dslide-final child)))
1640
1640
1641
1641
; ; ** Inline Slide Action
1642
- ; ; TODO round-robin slide action
1643
- ; ; TODO every-slide action
1642
+ ; ; TODO round-robin
1644
1643
1645
1644
; ; TODO override the child's own slide action
1646
1645
(defclass dslide-slide-action-inline (dslide-slide-action)
You can’t perform that action at this time.
0 commit comments