# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 814230902 0
# Node ID 11899bfa541c37294f0e2e201e3b3be53c2dc01f
# Parent  2a96bf08bccb2f161ae965a52656de1c736a52af
(outline-view-change-hook): New hook variable.
(outline-flag-region): Run the hook.

diff -r 2a96bf08bccb -r 11899bfa541c lisp/textmodes/outline.el
--- a/lisp/textmodes/outline.el	Fri Oct 20 20:57:42 1995 +0000
+++ b/lisp/textmodes/outline.el	Fri Oct 20 23:15:02 1995 +0000
@@ -149,6 +149,9 @@
     ("\\[\\([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
 	  (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.