From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 20 Oct 1995 23:15:02 +0000 (+0000)
Subject: (outline-view-change-hook): New hook variable.
X-Git-Tag: emacs-19.34~2601
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=203108d8e65d17869b3935afbcd28672a1a23822;p=emacs.git

(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 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.