Mercurial > emacs

changeset 21439:2280d06ab327

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Dan Nicolaescu <done@ece.arizona.edu>
date Wed, 08 Apr 1998 19:38:37 +0000
parents 7669480e827d
children 4718a738947a
files lisp/textmodes/outline.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/outline.el	Wed Apr 08 19:29:35 1998 +0000
+++ b/lisp/textmodes/outline.el	Wed Apr 08 19:38:37 1998 +0000
@@ -411,6 +411,16 @@
 			 '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,