Lines Matching +refs:region +refs:overlay
478 the region (from a Lisp program, pass `region' for WHICH). Otherwise:
484 (list (if (and transient-mark-mode mark-active) 'region
488 ((eq which 'region)
489 (outline-map-region 'outline-promote (region-beginning) (region-end)))
491 (outline-map-region 'outline-promote
517 the region (from a Lisp program, pass `region' for WHICH). Otherwise:
523 (list (if (and transient-mark-mode mark-active) 'region
527 ((eq which 'region)
528 (outline-map-region 'outline-demote (region-beginning) (region-end)))
530 (outline-map-region 'outline-demote
592 (defun outline-map-region (fun beg end)
644 (insert (delete-and-extract-region beg end))
707 "Function called if `isearch' finishes in an invisible overlay.
708 The function is called with the overlay as its only argument.
712 (defun outline-flag-region (from to flag)
717 (let ((o (make-overlay from to)))
718 (overlay-put o 'invisible 'outline)
719 (overlay-put o 'isearch-open-invisible
727 (goto-char (overlay-start o))
731 ;; (remove-overlays (overlay-start o) (overlay-end o)
739 (let ((end (overlay-end o)))
740 (delete-overlay o)
748 ;; But we need to preserve the original overlay.
749 (let ((o1 (copy-overlay o)))
750 (overlay-put o 'invisible nil) ;Show (most of) the text.
758 (and (equal (overlay-start o) (overlay-start o1))
759 (< (point) (overlay-end o))
762 (when (equal (overlay-start o) (overlay-start o1))
764 (delete-overlay o1))))))
767 ;; to the overlay that makes the outline invisible (see
768 ;; `outline-flag-region').
769 (defun outline-isearch-open-invisible (overlay)
780 (outline-flag-region (point) (progn (outline-next-preface) (point)) t)))
788 (outline-flag-region (1- (point))
794 (hide-region-body (point-min) (point-max)))
796 (defun hide-region-body (start end)
797 "Hide all body lines in the region, but not headings."
798 ;; Nullify the hook to avoid repeated calls to `outline-flag-region'
804 (narrow-to-region start end)
810 (outline-flag-region (point)
820 (outline-flag-region (point-min) (point-max) nil))
834 (hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
843 (outline-flag-region (- (point)
874 (outline-flag-region beg end t)
876 (outline-map-region
893 (outline-flag-region (1- (point))
912 (outline-flag-region (point)
957 (outline-map-region
1050 "Save the visible outline headers in region at the start of the kill ring.
1058 (narrow-to-region beg end)