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

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

[nongnu] elpa/dslide 4be48e907b 228/230: dslide--overlays now public


From: ELPA Syncer
Subject: [nongnu] elpa/dslide 4be48e907b 228/230: dslide--overlays now public
Date: Sun, 7 Jul 2024 19:00:46 -0400 (EDT)

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

    dslide--overlays now public
---
 dslide.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/dslide.el b/dslide.el
index db6f199a4c..d180a748af 100644
--- a/dslide.el
+++ b/dslide.el
@@ -396,7 +396,7 @@ See `dslide-base-follows-slide'.")
 This is global.  If a presentation is active, you can look at this variable to
 coordinate with it.")
 
-(defvar dslide--overlays nil
+(defvar dslide-overlays nil
   "Overlays used to hide or change contents display.")
 
 (defvar dslide--step-overlays nil
@@ -1208,7 +1208,7 @@ for `dslide-contents-map'.")
 
 (cl-defmethod dslide-begin ((obj dslide-action-hide-markup))
   (dslide-section-map obj dslide-hide-markup-types
-                      (lambda (e) (push (dslide-hide-element e) 
dslide--overlays)))
+                      (lambda (e) (push (dslide-hide-element e) 
dslide-overlays)))
   ;; Ooooh! right, yeah, the element parser doesn't give you affiliated 
keywords
   ;; when you ask for keywords.  As much sense as that would make, the only
   ;; technique I've found for this is falling back to regex.
@@ -1220,7 +1220,7 @@ for `dslide-contents-map'.")
           (let ((overlay (make-overlay (match-beginning 0)
                                        (1+ (match-end 0)))))
             (overlay-put overlay 'invisible t)
-            (push dslide--overlays overlay)))))))
+            (push dslide-overlays overlay)))))))
 
 (cl-defmethod dslide-end ((obj dslide-action-hide-markup))
   (dslide-begin obj))
@@ -1346,7 +1346,7 @@ steps.")
              (overlay-put overlay 'dslide-babel-export-control t)
              ;; src-block elements do not appear to contain their results, so 
it
              ;; seems we do not need to un-hide the results.
-             (push overlay dslide--overlays))))))))
+             (push overlay dslide-overlays))))))))
 
 (defun dslide--method-block-pred (method-names &optional unnamed)
   "Return a predicate to match the METHOD-NAMES.
@@ -2525,8 +2525,8 @@ hooks must occur in the deck's :slide-buffer."
 
 (defun dslide--delete-overlays ()
   "Delete content overlays."
-  (while dslide--overlays
-    (delete-overlay (pop dslide--overlays)))
+  (while dslide-overlays
+    (delete-overlay (pop dslide-overlays)))
   (while dslide--step-overlays
     (delete-overlay (pop dslide--step-overlays)))
   (when dslide--contents-hl-line-overlay



reply via email to

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