From 8d4d1e65d5200f7d24685d7c4ed3d30ebc92b953 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 8 Apr 1998 19:38:37 +0000 Subject: [PATCH] *** empty log message *** --- lisp/textmodes/outline.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 1967d3d9649..80e4f5c5d76 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -411,6 +411,16 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." 'outline-isearch-open-invisible))))) (run-hooks 'outline-view-change-hook)) + +;; Function to be set as an outline-isearch-open-invisible' property +;; to the overlay that makes the outline invisible (see +;; `outline-flag-region'). +(defun outline-isearch-open-invisible (overlay) + (save-excursion + (goto-char (overlay-start overlay)) + (show-entry))) + + ;; Exclude from the region BEG ... END all overlays ;; with a non-nil PROP property. ;; Exclude them by shrinking them to exclude BEG ... END, -- 2.39.2