Commit 203108d8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(outline-view-change-hook): New hook variable.

(outline-flag-region): Run the hook.
parent 4d2795c3
......@@ -149,6 +149,9 @@ in the file it applies to.")
("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face))
"Additional expressions to highlight in Outline mode.")
(defvar outline-view-change-hook nil
"Normal hook to be run after outline visibility changes.")
;;;autoload
(defun outline-mode ()
"Set major mode for editing outlines with selective display.
......@@ -364,7 +367,8 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
(if flag
(let ((o (make-overlay (point) to)))
(overlay-put o 'invisible flag)
(overlay-put o 'outline t))))))
(overlay-put o 'outline t)))))
(run-hooks 'outline-view-change-hook))
;; Exclude from the region BEG ... END all overlays
;; with a non-nil PROP property.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment