Mercurial > emacs

changeset 13259:11899bfa541c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-view-change-hook): New hook variable. (outline-flag-region): Run the hook.
author Richard M. Stallman <rms@gnu.org>
date Fri, 20 Oct 1995 23:15:02 +0000
parents 2a96bf08bccb
children a10616f0ad17
files lisp/textmodes/outline.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.