Skip to content

Commit 4be48e9

Browse files
committed
dslide--overlays now public
1 parent 1643928 commit 4be48e9

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

dslide.el

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -396,7 +396,7 @@ See `dslide-base-follows-slide'.")
396396
This is global. If a presentation is active, you can look at this variable to
397397
coordinate with it.")
398398

399-
(defvar dslide--overlays nil
399+
(defvar dslide-overlays nil
400400
"Overlays used to hide or change contents display.")
401401

402402
(defvar dslide--step-overlays nil
@@ -1208,7 +1208,7 @@ for `dslide-contents-map'.")
12081208

12091209
(cl-defmethod dslide-begin ((obj dslide-action-hide-markup))
12101210
(dslide-section-map obj dslide-hide-markup-types
1211-
(lambda (e) (push (dslide-hide-element e) dslide--overlays)))
1211+
(lambda (e) (push (dslide-hide-element e) dslide-overlays)))
12121212
;; Ooooh! right, yeah, the element parser doesn't give you affiliated keywords
12131213
;; when you ask for keywords. As much sense as that would make, the only
12141214
;; technique I've found for this is falling back to regex.
@@ -1220,7 +1220,7 @@ for `dslide-contents-map'.")
12201220
(let ((overlay (make-overlay (match-beginning 0)
12211221
(1+ (match-end 0)))))
12221222
(overlay-put overlay 'invisible t)
1223-
(push dslide--overlays overlay)))))))
1223+
(push dslide-overlays overlay)))))))
12241224

12251225
(cl-defmethod dslide-end ((obj dslide-action-hide-markup))
12261226
(dslide-begin obj))
@@ -1346,7 +1346,7 @@ steps.")
13461346
(overlay-put overlay 'dslide-babel-export-control t)
13471347
;; src-block elements do not appear to contain their results, so it
13481348
;; seems we do not need to un-hide the results.
1349-
(push overlay dslide--overlays))))))))
1349+
(push overlay dslide-overlays))))))))
13501350

13511351
(defun dslide--method-block-pred (method-names &optional unnamed)
13521352
"Return a predicate to match the METHOD-NAMES.
@@ -2525,8 +2525,8 @@ hooks must occur in the deck's :slide-buffer."
25252525

25262526
(defun dslide--delete-overlays ()
25272527
"Delete content overlays."
2528-
(while dslide--overlays
2529-
(delete-overlay (pop dslide--overlays)))
2528+
(while dslide-overlays
2529+
(delete-overlay (pop dslide-overlays)))
25302530
(while dslide--step-overlays
25312531
(delete-overlay (pop dslide--step-overlays)))
25322532
(when dslide--contents-hl-line-overlay

0 commit comments

Comments
 (0)