mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(outline-mode): Use `add-to-invisibility-spec' and

Browse Source 
set the invisible property to `outline'.
(outline-minor-mode): Likewise.
Also, use `remove-from-invisibility-spec'.
(outline-flag-region): Set `outline' as the invisible property.
This commit is contained in:
Richard M. Stallman 1997-05-17 03:12:03 +00:00
parent c4cd8760a2
commit 65c1b8a19e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/outline.el
View File

@ -214,7 +214,7 @@ Turning on outline mode calls the value of `text-mode-hook' and then of
(make-local-variable 'line-move-ignore-invisible)
(setq line-move-ignore-invisible t)
;; Cause use of ellipses for invisible text.
(setq buffer-invisibility-spec '((t . t)))
(add-to-invisibility-spec '(outline . t))
(make-local-variable 'paragraph-start)
(setq paragraph-start (concat paragraph-start "\\|\\("
outline-regexp "\\)"))
@ -270,11 +270,11 @@ See the command `outline-mode' for more information on this mode."
(make-local-variable 'line-move-ignore-invisible)
(setq line-move-ignore-invisible t)
;; Cause use of ellipses for invisible text.
(setq buffer-invisibility-spec '((t . t)))
(add-to-invisibility-spec '(outline . t))
(run-hooks 'outline-minor-mode-hook))
(setq line-move-ignore-invisible nil)
;; Cause use of ellipses for invisible text.
(setq buffer-invisibility-spec t))
(remove-from-invisibility-spec '(outline . t)))
;; When turning off outline mode, get rid of any outline hiding.
(or outline-minor-mode
(show-all))
@ -402,7 +402,7 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
(outline-discard-overlays (point) to 'outline)
(if flag
(let ((o (make-overlay (point) to)))
(overlay-put o 'invisible flag)
(overlay-put o 'invisible 'outline)
(overlay-put o 'outline t)))))
(run-hooks 'outline-view-change-hook))