/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.609 by teirllm, Wed Jun 4 21:13:41 2003 UTC revision 1.610 by teirllm, Tue Jun 17 02:35:46 2003 UTC
# Line 4480  wait this many seconds after Emacs becom Line 4480  wait this many seconds after Emacs becom
4480    :type 'number    :type 'number
4481    :group 'display    :group 'display
4482    :version "21.4")    :version "21.4")
4483    
4484    (make-variable-buffer-local 'saved-buffer-invisibility-spec)
4485    
4486    (defvar saved-buffer-invisibility-spec nil
4487      "Saved value of buffer-invisibility-spec when `vis-mode' is on.")
4488    
4489    (define-minor-mode vis-mode
4490      "Toggle vis-mode.
4491    With argument ARG turn vis-mode on iff ARG is positive..
4492    
4493    Enabling vis-mode sets `buffer-invisibility-spec' to nil, after
4494    saving the old value in the variable
4495    `saved-buffer-invisibility-spec', making all invisible text in
4496    the buffer visible.
4497    
4498    Disabling vis-mode restores the saved value of
4499    `buffer-invisibility-spec'."
4500      :lighter " Vis"
4501      (if vis-mode
4502          (progn
4503            (setq saved-buffer-invisibility-spec buffer-invisibility-spec
4504                  buffer-invisibility-spec nil))
4505        (setq buffer-invisibility-spec saved-buffer-invisibility-spec
4506              saved-buffer-invisibility-spec nil)))
4507    
4508  ;; Minibuffer prompt stuff.  ;; Minibuffer prompt stuff.
4509    
4510  ;(defun minibuffer-prompt-modification (start end)  ;(defun minibuffer-prompt-modification (start end)

Legend:
Removed from v.1.609  
changed lines
  Added in v.1.610

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26