(vis-mode): New function.

(saved-buffer-invisibility-spec): New variable.

diff --git a/lisp/simple.el b/lisp/simple.el
index 3cabbae2d76b56d2e49bc58262bece9a09b4ae2d..49701183ba50fcf63c33178d6193521e607d77a3 100644 (file)
--- 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")
+\f
+(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)))
+\f
 ;; Minibuffer prompt stuff.
 
 ;(defun minibuffer-prompt-modification (start end)