diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-12-04 09:42:41 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-12-04 09:42:41 +0000 |
commit | e83e1554aa3eb8fbe8795a4cfec1207cdd0d3ae2 (patch) | |
tree | 0d97b2965dfd82343e3e501ffb34b15ad072ee74 /etc/emacsbugs/visiblity-attempt.el | |
parent | a308aaef435e1cf7a2fc093cf1a96ca6bf6bf3ae (diff) |
New files
Diffstat (limited to 'etc/emacsbugs/visiblity-attempt.el')
-rw-r--r-- | etc/emacsbugs/visiblity-attempt.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/etc/emacsbugs/visiblity-attempt.el b/etc/emacsbugs/visiblity-attempt.el new file mode 100644 index 00000000..e6cc8c07 --- /dev/null +++ b/etc/emacsbugs/visiblity-attempt.el @@ -0,0 +1,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) + |