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

(outline-flag-region): Run the hook.

1 files changed, 5 insertions, 1 deletions

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.