@@ -396,7 +396,7 @@ See `dslide-base-follows-slide'.")
396
396
This is global. If a presentation is active, you can look at this variable to
397
397
coordinate with it." )
398
398
399
- (defvar dslide-- overlays nil
399
+ (defvar dslide-overlays nil
400
400
" Overlays used to hide or change contents display." )
401
401
402
402
(defvar dslide--step-overlays nil
@@ -1208,7 +1208,7 @@ for `dslide-contents-map'.")
1208
1208
1209
1209
(cl-defmethod dslide-begin ((obj dslide-action-hide-markup))
1210
1210
(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)))
1212
1212
; ; Ooooh! right, yeah, the element parser doesn't give you affiliated keywords
1213
1213
; ; when you ask for keywords. As much sense as that would make, the only
1214
1214
; ; technique I've found for this is falling back to regex.
@@ -1220,7 +1220,7 @@ for `dslide-contents-map'.")
1220
1220
(let ((overlay (make-overlay (match-beginning 0 )
1221
1221
(1+ (match-end 0 )))))
1222
1222
(overlay-put overlay 'invisible t )
1223
- (push dslide-- overlays overlay)))))))
1223
+ (push dslide-overlays overlay)))))))
1224
1224
1225
1225
(cl-defmethod dslide-end ((obj dslide-action-hide-markup))
1226
1226
(dslide-begin obj))
@@ -1346,7 +1346,7 @@ steps.")
1346
1346
(overlay-put overlay 'dslide-babel-export-control t )
1347
1347
; ; src-block elements do not appear to contain their results, so it
1348
1348
; ; seems we do not need to un-hide the results.
1349
- (push overlay dslide-- overlays))))))))
1349
+ (push overlay dslide-overlays))))))))
1350
1350
1351
1351
(defun dslide--method-block-pred (method-names &optional unnamed )
1352
1352
" Return a predicate to match the METHOD-NAMES.
@@ -2525,8 +2525,8 @@ hooks must occur in the deck's :slide-buffer."
2525
2525
2526
2526
(defun dslide--delete-overlays ()
2527
2527
" Delete content overlays."
2528
- (while dslide-- overlays
2529
- (delete-overlay (pop dslide-- overlays)))
2528
+ (while dslide-overlays
2529
+ (delete-overlay (pop dslide-overlays)))
2530
2530
(while dslide--step-overlays
2531
2531
(delete-overlay (pop dslide--step-overlays)))
2532
2532
(when dslide--contents-hl-line-overlay
0 commit comments