[nongnu] elpa/org-tree-slide 8dc16ab4ed 107/144: Revise `org-tree-slide-content`

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 8dc16ab4edf627b54b6e76d38bbdc2634dda5757
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Revise `org-tree-slide-content`
---
 org-tree-slide.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index c54f20638a..85063413a2 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -325,8 +325,10 @@ Profiles:
     (org-tree-slide--hide-slide-header)
     (org-tree-slide--move-to-the-first-heading)
     (org-overview)
-    (org-content (if (> org-tree-slide-skip-outline-level 0)
-                     (1- org-tree-slide-skip-outline-level)))
+    (cond ((eq 0 org-tree-slide-skip-outline-level)
+           (org-content))
+          ((< 2 org-tree-slide-skip-outline-level)
+           (org-content (1- org-tree-slide-skip-outline-level))))
     (message "<<  CONTENT  >>")))
 
 ;;;###autoload
@@ -648,7 +650,6 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 
 (defun org-tree-slide--heading-level-skip-p (&optional heading-level)
   "Check the current heading should be skipped or not based on outline level.
-
 If HEADING-LEVEL is non-nil, the provided outline level is checked."
   (and (> org-tree-slide-skip-outline-level 0)
        (<= org-tree-slide-skip-outline-level