branch: elpa/dslide
commit 3969814eb4250e032eb96ffe0b334544343955c8
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
rearrangement
Signed-off-by: Psionik K <73710933+psioni...@users.noreply.github.com>
---
org-tree-slide.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index e554f5955c..275eddd896 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -654,6 +654,15 @@ This is displayed by default if
`org-tree-slide-modeline-display' is nil.")
(defvar org-tree-slide--header-face-autoconfig nil)
(defvar org-tree-slide--skip-comments-mode nil)
+(defun org-tree-slide--all-skip-p ()
+ "Check the buffer has at least one slide to be shown."
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (1+ (buffer-size)))
+ (unless (org-tree-slide--last-point-at-bot)
+ t))))
+
(defun org-tree-slide--setup ()
"Setup."
(when (org-tree-slide--active-p)
@@ -1062,15 +1071,6 @@ If the cursor exist before first heading, do nothing."
** third ; nil"
(and (org-before-first-heading-p) (not (buffer-narrowed-p))))
-(defun org-tree-slide--all-skip-p ()
- "Check the buffer has at least one slide to be shown."
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (1+ (buffer-size)))
- (unless (org-tree-slide--last-point-at-bot)
- t))))
-
(provide 'org-tree-slide)
;;; org-tree-slide.el ends here
