# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1166316506 0
# Node ID 900d63313056a8f3b19d2f8fd261f352bc607598
# Parent  deefd1777d72f902fda8c3882164d7df6dbb5df0
(outline-isearch-open-invisible-function): New defvar.
(outline-flag-region): Use it if non-nil for isearch-open-invisible
overlay property instead of outline-isearch-open-invisible.

diff -r deefd1777d72 -r 900d63313056 lisp/outline.el
--- a/lisp/outline.el	Sun Dec 17 00:48:14 2006 +0000
+++ b/lisp/outline.el	Sun Dec 17 00:48:26 2006 +0000
@@ -690,6 +690,11 @@
     (goto-char beg)))
 
 
+(defvar outline-isearch-open-invisible-function nil
+  "Function called if `isearch' finishes in an invisible overlay.
+The function is called with the overlay as its only argument.
+If nil, `show-entry' is called to reveal the invisible text.")
+
 (put 'outline 'reveal-toggle-invisible 'outline-reveal-toggle-invisible)
 (defun outline-flag-region (from to flag)
   "Hide or show lines from FROM to TO, according to FLAG.
@@ -698,7 +703,9 @@
   (when flag
     (let ((o (make-overlay from to)))
       (overlay-put o 'invisible 'outline)
-      (overlay-put o 'isearch-open-invisible 'outline-isearch-open-invisible)))
+      (overlay-put o 'isearch-open-invisible
+		   (or outline-isearch-open-invisible-function
+		       'outline-isearch-open-invisible))))
   ;; Seems only used by lazy-lock.  I.e. obsolete.
   (run-hooks 'outline-view-change-hook))