[nongnu] elpa/org-tree-slide ea33297150 084/144: Bugfix, commented headings were considered as last headings

[ELPA Syncer]

branch: elpa/org-tree-slide
commit ea332971503bc178cf7aca1bae34d06bdec5ab21
Author: bennati <st.bennati@gmail.com>
Commit: bennati <st.bennati@gmail.com>

    Bugfix, commented headings were considered as last headings
---
 org-tree-slide.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index c8a88f735b..66ca22cc79 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -799,13 +799,13 @@ Profiles:
 (defun org-tree-slide--beginning-of-tree ()
   "Return beginning point of the line, or t. If the position does not exist in 
the buffer, then return nil."
   (beginning-of-line)
-  (if (org-tree-slide--heading-level-skip-p) ;if the header has to be skipped
+  (if (and (not (org-tree-slide--heading-skip-p)) ;if the header has to be 
skipped
+           (org-at-heading-p))
+      (point)
       (progn
         (outline-previous-heading)      ;go to previous heading
         (org-tree-slide--beginning-of-tree)) ;recursion until a visible 
heading is found
-    (if (org-at-heading-p)
-        (point)
-      (outline-previous-heading)))) ; return position or nil.
+      )) ; return position or nil.
 
 (provide 'org-tree-slide)