;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303!\207" [provide auto-overlay-self require auto-overlays] 2) (defvar auto-o-pending-self-cascade nil) (byte-code "\300\301!\210\302\303\304\305#\210\302\303\306\307#\210\310\311\312\"\210\310\313\314\"\207" [make-variable-buffer-local auto-o-pending-self-cascade put self auto-overlay-parse-function auto-o-parse-self-match auto-overlay-suicide-function auto-o-self-suicide add-hook auto-overlay-load-hook auto-o-self-load auto-overlay-unload-hook auto-o-self-unload] 4) (defalias 'auto-o-self-load #[0 "\300\301\302\303\304$\207" [add-hook before-change-functions auto-o-perform-self-cascades nil t] 5]) (defalias 'auto-o-self-unload #[0 "\301\302\303\304#\210\305\211\207" [auto-o-pending-self-cascade remove-hook before-change-functions auto-o-perform-self-cascades t nil] 4]) #@16 (fn O-MATCH) (defalias 'auto-o-parse-self-match #[257 "\301!\211@\204\302\303\"\207\304\305\"\204.\304\306\"\307!Y\203.\310\303\311$\210\312\"\303\207\303\304\313\"\307!W\203I\302\304\211\314\"\306\"\"\262\202q\211A\262\242\262\302\304\305\"\205c\304\211@\314\"\306\"\"\262\310\303\311\303\315&\210\203|\316@D!\210\207" [auto-o-pending-self-cascade auto-o-self-list auto-o-make-self nil overlay-get end delim-start overlay-start auto-o-match-overlay no-props delq delim-end start protect-match auto-o-self-cascade] 11 (#$ . 900)]) #@15 (fn O-SELF) (defalias 'auto-o-self-suicide #[257 "\301\302\"\303!\204\304!\210\305\"\211\207\301\306\"=\203>\307!A@\310\311\2034\301\211\312\"\313\"\2025\314#\266\211B\211\207\301\306\"\307!A@\310\203X\301\211\312\"\313\"\202Y\314#\266\211B\211\207" [auto-o-pending-self-cascade overlay-get parent auto-o-end-matched-p auto-o-delete-overlay delq end auto-o-self-list auto-o-match-overlay nil start delim-start unmatched] 11 (#$ . 1478)]) #@30 (fn O-START &optional END) (defalias 'auto-o-make-self #[513 "\301\211\302!\203\303\304\"\262\202 \305!\203\262\202 d\262\306\211\301\211\307%\266\202\310\311\312#\210\310\313\303\313\"#\210\310\314\303\314\"#\210\302!\204M\211B\315\302!\205W#\210\207" [auto-o-pending-self-cascade nil overlayp overlay-get delim-start number-or-marker-p make-overlay rear-advance overlay-put auto-overlay t set-id definition-id auto-o-match-overlay] 10 (#$ . 1955)]) #@16 (fn BEG END) (defalias 'auto-o-perform-self-cascades #[514 "\301\302\"\211\2054\211@\303!\203-\303!X\203-\304\305\306\307\"\212\310!b\210\311 )]\"!\210A\266\202\202\207" [auto-o-pending-self-cascade sort auto-overlay-< overlay-start auto-o-self-cascade auto-o-self-list overlay-get start overlay-end line-end-position] 9 (#$ . 2444)]) #@21 (fn OVERLAY-LIST) (defalias 'auto-o-self-cascade #[257 "\211G\301V\205\300\211@A@A\262\302\303\304\305\"\306$\210\307\"\310!\2042\311\303\312#\210\307\"\211\207\3132\203GS\314\211W\205\200\211\2118\262\211T8\262\302\304\315\"\304\305\"\306\303\312&\210\310!\204x\316\313\311\303\312#\210\307\"\317\"\210\210\211T\262\202:\266\2020?\205\276\303\320!@\262\321\304\315\"!A@\211\262\203\250\304\211\305\"\322\"\262\202\253d\262\302\304\315\"\306\303\312&\266B\211\266\202\207" [auto-o-pending-self-cascade 1 auto-o-match-overlay nil overlay-get start no-props delq auto-o-end-matched-p auto-o-delete-overlay protect-match stop 0 end throw t last auto-o-self-list delim-start] 13 (#$ . 2801)]) #@30 (fn O-START &optional END) (defalias 'auto-o-self-list #[513 "\211\204d\262\300\301\302\303\"ST\304\305\302\305\"E\304\306\302 \306\"E$\307\"\207" [sort auto-overlays-in overlay-get delim-start eq set-id definition-id auto-overlay-<] 12 (#$ . 3557)])