;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303!\210\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\207" [provide auto-overlay-nested require auto-overlays put nested auto-overlay-parse-function auto-o-parse-nested-match auto-overlay-suicide-function auto-o-nested-suicide auto-overlay-complex-class t] 4) #@16 (fn O-MATCH) (defalias 'auto-o-parse-nested-match #[257 "\300!\211@\204\301\302\"\207\303!\304=\203\305!\203*\303!\306=\2031\307!\2041\310\"\210\311\207\301!B\262\312!\210@\207" [auto-o-nested-stack auto-o-make-nested unmatched auto-o-edge start auto-o-start-matched-p end auto-o-end-matched-p auto-o-match-overlay nil auto-o-nested-stack-cascade] 6 (#$ . 391)]) #@15 (fn O-SELF) (defalias 'auto-o-nested-suicide #[257 "\300!\211@\301\302!\303=\203\304\202\303\"\204\305!\207G\306U\2037\302!\303=\2031\307\310\311#\207\307\311\310#\207\312\302!\311#\210\312\313\311#\210\314!\207" [auto-o-nested-stack auto-o-edge-matched-p auto-o-edge start end auto-o-delete-overlay 1 auto-o-match-overlay unmatched nil overlay-put parent auto-o-nested-stack-cascade] 7 (#$ . 783)]) #@36 (fn O-MATCH &optional UNMATCHED) (defalias 'auto-o-make-nested #[513 "\300\211\301!\302=\203D\303\304\"\262\305\203d\202\300\211\306%\262\307\310\311#\210\307\312\303\312\"#\210\307\313\303\313\"#\210\314\315#\210\202\204\301!\316=\203\204\303\317\"\262\305\203[e\202\\\300\211\306%\262\307\310\311#\210\307\312\303\312\"#\210\307\313\303\313\"#\210\314\315#\210\207" [nil auto-o-edge start overlay-get delim-end make-overlay rear-advance overlay-put auto-overlay t set-id definition-id auto-o-match-overlay unmatched end delim-start] 10 (#$ . 1211)]) #@22 (fn OVERLAY-STACK) (defalias 'auto-o-nested-stack-cascade #[257 "\211@\300\301!\203[GS\302\211W\203C\211\2118\262\211T8\262\303\300\304\305\"\2034\304\305\"\2025\306\300\211\307&\266\211T\262\202 \266\301!\203U\303\300\310\300\211\307&\207\311\300\307#\207\312!\205\262GS\302\211W\203\233\211\2118\262\211T8\262\303\304\313\"\203\213\304\313\"\202\214\306\300\211\211\307&\266\211T\262\202e\266\312!\203\255\303\310\300\211\211\307&\207\311\300\307#\207" [nil auto-o-start-matched-p 0 auto-o-match-overlay overlay-get end unmatched protect-match unmatch auto-o-delete-overlay auto-o-end-matched-p start] 13 (#$ . 1814)]) #@16 (fn O-MATCH) (defalias 'auto-o-nested-stack #[257 "\300\301!\302=\203\303\304\"\202\303\305\"\306\307\303\307\"E\306\310\303\310\"E#\303\311\"\312\313\314\"\"\207" [auto-overlays-at-point auto-o-edge start overlay-get delim-end delim-start eq set-id definition-id parent sort make-closure #[514 "\301!\302!Z\301!\302!ZU\203\300=\207W\207" [V0 overlay-end overlay-start] 6 "\n\n(fn A B)"]] 9 (#$ . 2499)])