Function: allout-overlay-preparations

allout-overlay-preparations is a byte-compiled function defined in allout.el.gz.

Signature

(allout-overlay-preparations)

Documentation

Set the properties of the allout invisible-text overlay and others.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_  > allout-overlay-preparations
(defun allout-overlay-preparations ()
  "Set the properties of the allout invisible-text overlay and others."
  (setplist 'allout-exposure-category nil)
  (put 'allout-exposure-category 'invisible 'allout)
  (put 'allout-exposure-category 'evaporate t)
  ;; ??? We use isearch-open-invisible *and* isearch-mode-end-hook.  The
  ;; latter would be sufficient, but it seems that a separate behavior --
  ;; the _transient_ opening of invisible text during isearch -- is keyed to
  ;; presence of the isearch-open-invisible property -- even though this
  ;; property controls the isearch _arrival_ behavior.  This is the case at
  ;; least in emacs 21, 22.1.
  (put 'allout-exposure-category 'isearch-open-invisible
       #'allout-isearch-end-handler)
  (put 'allout-exposure-category 'insert-in-front-hooks
       '(allout-overlay-insert-in-front-handler))
  (put 'allout-exposure-category 'modification-hooks
       '(allout-overlay-interior-modification-handler)))