[nongnu] elpa/dslide 9a67bc2f3e 026/230: line noise, compiler warnings

[ELPA Syncer]

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

    line noise, compiler warnings
    
    Signed-off-by: Psionik K <73710933+psionic-k@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)