# HG changeset patch # User Luc Teirlinck # Date 1055817346 0 # Node ID 9b14210f4740e153a5c791ca0c47ce5a714e8a42 # Parent 1e29218d0fc8a911ae758c713e4e2870466bac08 (vis-mode): New function. (saved-buffer-invisibility-spec): New variable. diff -r 1e29218d0fc8 -r 9b14210f4740 lisp/simple.el --- a/lisp/simple.el Tue Jun 17 02:31:08 2003 +0000 +++ b/lisp/simple.el Tue Jun 17 02:35:46 2003 +0000 @@ -4480,8 +4480,31 @@ :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)