Mercurial > emacs
comparison lisp/textmodes/outline.el @ 17853:3af728d1f6cf
(outline-mode): Use `add-to-invisibility-spec' and
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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 May 1997 03:12:03 +0000 |
| parents | 3fa9da85b3ea |
| children | 170b16201f82 |
comparison
equal
deleted
inserted
replaced
| 17852:a9f18d920c11 | 17853:3af728d1f6cf |
|---|---|
| 212 (setq local-abbrev-table text-mode-abbrev-table) | 212 (setq local-abbrev-table text-mode-abbrev-table) |
| 213 (set-syntax-table text-mode-syntax-table) | 213 (set-syntax-table text-mode-syntax-table) |
| 214 (make-local-variable 'line-move-ignore-invisible) | 214 (make-local-variable 'line-move-ignore-invisible) |
| 215 (setq line-move-ignore-invisible t) | 215 (setq line-move-ignore-invisible t) |
| 216 ;; Cause use of ellipses for invisible text. | 216 ;; Cause use of ellipses for invisible text. |
| 217 (setq buffer-invisibility-spec '((t . t))) | 217 (add-to-invisibility-spec '(outline . t)) |
| 218 (make-local-variable 'paragraph-start) | 218 (make-local-variable 'paragraph-start) |
| 219 (setq paragraph-start (concat paragraph-start "\\|\\(" | 219 (setq paragraph-start (concat paragraph-start "\\|\\(" |
| 220 outline-regexp "\\)")) | 220 outline-regexp "\\)")) |
| 221 ;; Inhibit auto-filling of header lines. | 221 ;; Inhibit auto-filling of header lines. |
| 222 (make-local-variable 'auto-fill-inhibit-regexp) | 222 (make-local-variable 'auto-fill-inhibit-regexp) |
| 268 '(lambda () (outline-minor-mode -1)) | 268 '(lambda () (outline-minor-mode -1)) |
| 269 nil t) | 269 nil t) |
| 270 (make-local-variable 'line-move-ignore-invisible) | 270 (make-local-variable 'line-move-ignore-invisible) |
| 271 (setq line-move-ignore-invisible t) | 271 (setq line-move-ignore-invisible t) |
| 272 ;; Cause use of ellipses for invisible text. | 272 ;; Cause use of ellipses for invisible text. |
| 273 (setq buffer-invisibility-spec '((t . t))) | 273 (add-to-invisibility-spec '(outline . t)) |
| 274 (run-hooks 'outline-minor-mode-hook)) | 274 (run-hooks 'outline-minor-mode-hook)) |
| 275 (setq line-move-ignore-invisible nil) | 275 (setq line-move-ignore-invisible nil) |
| 276 ;; Cause use of ellipses for invisible text. | 276 ;; Cause use of ellipses for invisible text. |
| 277 (setq buffer-invisibility-spec t)) | 277 (remove-from-invisibility-spec '(outline . t))) |
| 278 ;; When turning off outline mode, get rid of any outline hiding. | 278 ;; When turning off outline mode, get rid of any outline hiding. |
| 279 (or outline-minor-mode | 279 (or outline-minor-mode |
| 280 (show-all)) | 280 (show-all)) |
| 281 (force-mode-line-update)) | 281 (force-mode-line-update)) |
| 282 | 282 |
| 400 (goto-char from) | 400 (goto-char from) |
| 401 (end-of-line) | 401 (end-of-line) |
| 402 (outline-discard-overlays (point) to 'outline) | 402 (outline-discard-overlays (point) to 'outline) |
| 403 (if flag | 403 (if flag |
| 404 (let ((o (make-overlay (point) to))) | 404 (let ((o (make-overlay (point) to))) |
| 405 (overlay-put o 'invisible flag) | 405 (overlay-put o 'invisible 'outline) |
| 406 (overlay-put o 'outline t))))) | 406 (overlay-put o 'outline t))))) |
| 407 (run-hooks 'outline-view-change-hook)) | 407 (run-hooks 'outline-view-change-hook)) |
| 408 | 408 |
| 409 ;; Exclude from the region BEG ... END all overlays | 409 ;; Exclude from the region BEG ... END all overlays |
| 410 ;; with a non-nil PROP property. | 410 ;; with a non-nil PROP property. |