From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 17 Jun 2003 02:35:46 +0000 (+0000)
Subject: (vis-mode): New function.
X-Git-Tag: ttn-vms-21-2-B4~9626
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e57881d89e8d323dbdca9798a7d14549a2d2a36;p=emacs.git

(vis-mode): New function.
(saved-buffer-invisibility-spec): New variable.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 3cabbae2d76..49701183ba5 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4480,8 +4480,31 @@ wait this many seconds after Emacs becomes idle before doing an update."
   :type 'number
   :group 'display
   :version "21.4")
+
+(make-variable-buffer-local 'saved-buffer-invisibility-spec)
+
+(defvar saved-buffer-invisibility-spec nil
+  "Saved value of buffer-invisibility-spec when `vis-mode' is on.")
+
+(define-minor-mode vis-mode
+  "Toggle vis-mode.
+With argument ARG turn vis-mode on iff ARG is positive..
 
+Enabling vis-mode sets `buffer-invisibility-spec' to nil, after
+saving the old value in the variable
+`saved-buffer-invisibility-spec', making all invisible text in
+the buffer visible.
 
+Disabling vis-mode restores the saved value of
+`buffer-invisibility-spec'."
+  :lighter " Vis"
+  (if vis-mode
+      (progn
+	(setq saved-buffer-invisibility-spec buffer-invisibility-spec
+	      buffer-invisibility-spec nil))
+    (setq buffer-invisibility-spec saved-buffer-invisibility-spec
+	  saved-buffer-invisibility-spec nil)))
+
 ;; Minibuffer prompt stuff.
 
 ;(defun minibuffer-prompt-modification (start end)