diff options
Diffstat (limited to 'etc/emacsbugs/visiblity-attempt.el')
-rw-r--r-- | etc/emacsbugs/visiblity-attempt.el | 34 |
1 files changed, 25 insertions, 9 deletions
diff --git a/etc/emacsbugs/visiblity-attempt.el b/etc/emacsbugs/visiblity-attempt.el index e6cc8c07..ad88799c 100644 --- a/etc/emacsbugs/visiblity-attempt.el +++ b/etc/emacsbugs/visiblity-attempt.el @@ -1,14 +1,30 @@ +;;; +;;; === Test area for invisibility === +;;; (defvar vis nil) + +(overlay-put (make-overlay 18 22) 'invisible 'smaller) +(overlay-put (make-overlay 9 43) 'invisible 'larger) + (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))) + (if vis + (add-to-invisibility-spec '(larger . t)) + (remove-from-invisibility-spec '(larger . t))) (setq vis (not vis))) -(overlay-put (make-overlay (point-min) (point)) 'invisible 'myvis) + + +;; In this buffer: + +;; M-x eval-buffer RET +;; M-x toggle-invis + +;; The smaller area remains visible, although there is a surrounding +;; overlay which has an invisibility spec which should cover the +;; revealed characters. Arguably a bug. + + + + + |