Mercurial > emacs
comparison lisp/textmodes/outline.el @ 11575:090333911dc8
(outline-minor-mode): Use force-mode-line-update.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 25 Apr 1995 22:27:27 +0000 |
parents | 4235784197f3 |
children | 290970a12db9 |
comparison
equal
deleted
inserted
replaced
11574:a956f12b250f | 11575:090333911dc8 |
---|---|
255 ;; Cause use of ellipses for invisible text. | 255 ;; Cause use of ellipses for invisible text. |
256 (setq buffer-invisibility-spec t)) | 256 (setq buffer-invisibility-spec t)) |
257 ;; When turning off outline mode, get rid of any outline hiding. | 257 ;; When turning off outline mode, get rid of any outline hiding. |
258 (or outline-minor-mode | 258 (or outline-minor-mode |
259 (show-all)) | 259 (show-all)) |
260 (set-buffer-modified-p (buffer-modified-p))) | 260 (force-mode-line-update)) |
261 | 261 |
262 (defvar outline-level 'outline-level | 262 (defvar outline-level 'outline-level |
263 "Function of no args to compute a header's nesting level in an outline. | 263 "Function of no args to compute a header's nesting level in an outline. |
264 It can assume point is at the beginning of a header line.") | 264 It can assume point is at the beginning of a header line.") |
265 | 265 |