From e83e1554aa3eb8fbe8795a4cfec1207cdd0d3ae2 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 4 Dec 2009 09:42:41 +0000 Subject: New files --- etc/emacsbugs/visiblity-attempt.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 etc/emacsbugs/visiblity-attempt.el (limited to 'etc/emacsbugs') 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) + -- cgit v1.2.3