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) |