From 203108d8e65d17869b3935afbcd28672a1a23822 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 Oct 1995 23:15:02 +0000 Subject: [PATCH] (outline-view-change-hook): New hook variable. (outline-flag-region): Run the hook. --- lisp/textmodes/outline.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 84d95ef36e7..b872557d230 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -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. -- 2.39.2