branch: elpa/dslide
commit 9a67bc2f3e4bd2a5ef5a62dd7ea2c74e7e314e19
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
line noise, compiler warnings
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
macro-slides.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/macro-slides.el b/macro-slides.el
index 6a1d26c2e3..afce01f000 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -1640,6 +1640,7 @@ stateful-sequence class methods. METHOD-NAME is a
string."
;; TODO implementation relies on org link opening. Does not check for file or
;; check that image mode displays the link correctly.
;; TODO extract buffer-slide setup logic a bit to make writing these easier.
+;; TODO make it just a link action?
(cl-defmethod ms-step-forward
((obj ms-action-image))
(save-excursion
@@ -1689,6 +1690,7 @@ stateful-sequence class methods. METHOD-NAME is a
string."
(ms-heading
(oref obj parent))))
nil)))
+
;; ** Default Child Action
(defclass ms-child-action-slide (ms-action) ()
"Default child action. Children are independent slides.")
@@ -2113,7 +2115,7 @@ TYPE is a list or type symbol."
(goto-char (point-min))
(let ((first-element (org-element-at-point)))
(if (and first-element
- (eq (org-element-type first-element 'headline)
+ (eq (org-element-type first-element)
'headline))
(org-element-at-point)
(when (re-search-forward org-outline-regexp-bol nil t)
