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

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

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index 84d95ef36e7364712d039e6a00dd62107e013191..b872557d23055ac4677b95e2957a6120edbe165e 100644 (file)
--- 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.