blob: e6cc8c070f9a911ef0266cdb2b26d1d76241d4c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(defvar vis nil)
(defun toggle-invis ()
(interactive)
(if vis (add-to-invisibility-spec 'myvis . t))
(remove-from-invisibility-spec '(myvis . t)))
(setq vis (not vis)))
(overlay-put (make-overlay (point-min) (point)) 'invisible 'myvis)(defvar vis nil)
(defun toggle-invis ()
(interactive)
(if vis (add-to-invisibility-spec '(myvis . t))
(remove-from-invisibility-spec '(myvis . t)))
(setq vis (not vis)))
(overlay-put (make-overlay (point-min) (point)) 'invisible 'myvis)
|