branch: elpa/org-tree-slide
commit 8dc16ab4edf627b54b6e76d38bbdc2634dda5757
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@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
