emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/dslide 3969814eb4 015/230: rearrangement


From: ELPA Syncer
Subject: [nongnu] elpa/dslide 3969814eb4 015/230: rearrangement
Date: Sun, 7 Jul 2024 19:00:08 -0400 (EDT)

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

    rearrangement
    
    Signed-off-by: Psionik K <73710933+psionic-k@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]