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

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

[nongnu] elpa/dslide c00b3ac258 017/230: rearrangement


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

branch: elpa/dslide
commit c00b3ac258f8c62be12f078e6db8e044b365183d
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 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7aec095cba..72ef1bc3a8 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -266,9 +266,6 @@ If you want to show anything, just specify nil."
 (defvar-local org-tree-slide-heading-level-3-cookie nil)
 (defvar-local org-tree-slide-heading-level-4-cookie nil)
 
-(defvar-local org-tree-slide--content-overlays nil
-  "Overlays used to hide or change contents display.")
-
 (defvar org-tree-slide-mode nil)
 (defvar org-tree-slide-play-hook nil
   "A hook run when `org-tree-slide--play' is evaluated to start the 
slideshow.")
@@ -697,6 +694,14 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (defvar-local org-tree-slide-startup "overview"
   "Set your #+startup: line to \"content\" \"overview\" or \"outline\".")
 
+(defvar-local org-tree-slide--content-overlays nil
+  "Overlays used to hide or change contents display.")
+
+(defun org-tree-slide--delete-content-overlays ()
+  "Delete content overlays."
+  (while org-tree-slide--content-overlays
+    (delete-overlay (pop org-tree-slide--content-overlays))))
+
 (defun org-tree-slide--stop ()
   "Stop the slide view, and redraw the orgmode buffer with #+STARTUP:."
   (widen)
@@ -991,11 +996,6 @@ Some number of BLANK-LINES will be shown below the header."
   (org-tree-slide--set-slide-header
    (or lines org-tree-slide-content-margin-top)))
 
-(defun org-tree-slide--delete-content-overlays ()
-  "Delete content overlays."
-  (while org-tree-slide--content-overlays
-    (delete-overlay (pop org-tree-slide--content-overlays))))
-
 (defun org-tree-slide--hide-slide-header ()
   "Hide header."
   (when org-tree-slide--header-overlay



reply via email to

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