[Emacs-diffs] Changes to emacs/lisp/simple.el

[Luc Teirlinck]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.609 emacs/lisp/simple.el:1.610
*** emacs/lisp/simple.el:1.609  Wed Jun  4 17:13:41 2003
--- emacs/lisp/simple.el        Mon Jun 16 22:35:46 2003
***************
*** 4480,4487 ****
--- 4480,4510 ----
    :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)