;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (defvar auto-overlay-regexps nil) (make-variable-buffer-local 'auto-overlay-regexps) (defvar auto-overlay-load-hook nil) (defvar auto-overlay-unload-hook nil) (defvar auto-o-pending-updates nil) (make-variable-buffer-local 'auto-o-pending-updates) (defvar auto-o-pending-suicides nil) (make-variable-buffer-local 'auto-o-pending-suicides) (defvar auto-o-pending-pre-suicide nil) (make-variable-buffer-local 'auto-o-pending-pre-suicide) (defvar auto-o-pending-post-suicide nil) (make-variable-buffer-local 'auto-o-pending-post-suicide) (defvar auto-o-pending-post-update nil) (make-variable-buffer-local 'auto-o-pending-post-update) #@150 Find the first association of KEY in ALIST. Return the index of the matching item, or nil of not found. Comparison is done with 'eq. (fn KEY ALIST) (defalias 'auto-o-assq-position #[514 "\300\301\3022#\2118\211\262\205\"@=\203\303\302\"\210\211T\262\2020\207" [nil 0 found throw] 7 (#$ . 720)]) #@153 Find the first occurrence of ITEM in LIST. Return the index of the matching item, or nil of not found. Comparison is done with `equal'. (fn ITEM LIST) (defalias 'auto-o-position #[514 "\300\301\3022\"\2118\211\262\205!\232\203\303\302\"\210\211T\262\2020\207" [nil 0 found throw] 7 (#$ . 1035)]) #@189 Return the sub-list of LIST from START to END. If END is omitted, it defaults to the length of the list If START or END is negative, it counts from the end. (fn LIST START &optional END) (defalias 'auto-o-sublist #[770 "\300\203\301W\203\"G\211\262\\\262\202\"\211\206 G\211\262\262\301W\2032\206/G\\\262\300W\203G8B\262T\262\2023\211\237\207" [nil 0] 7 (#$ . 1351)]) #@103 Cons ITEM onto front of LIST if it's not already there. Comparison is done with `eq'. (fn ITEM LIST) (defalias 'auto-o-adjoin '(macro . #[514 "\300\301E\302\303EEF\207" [if memq setf cons] 10 (#$ . 1758)])) #@18 (fn LIST PROP) (defalias 'auto-o--plist-get #[514 "\203\211@=\204A\262\202A@\207" [] 4 (#$ . 1980)]) #@24 (fn LIST &rest KEYS) (defalias 'auto-o--plist-delete #[385 "@>\203AA\262\202\211\203*\211A@>\203#\211AAA\241\210\211A\262\202\210\207" [] 5 (#$ . 2100)]) #@13 (fn LIST) (defalias 'auto-o--plist-tail #[257 "\211@9\203\300@!\301H\302U\203\211AA\262\202\207" [symbol-name 0 58] 3 (#$ . 2279)]) #@15 (fn SET-ID) (defalias 'auto-o-get-set #[257 "\211\236AA\207" [auto-overlay-regexps] 3 (#$ . 2427)]) #@15 (fn SET-ID) (defalias 'auto-o-create-set #[257 "\211\301DB\211\207" [auto-overlay-regexps nil] 3 (#$ . 2536)]) #@15 (fn SET-ID) (defalias 'auto-o-delete-set #[257 "\301\"\211\207" [auto-overlay-regexps assq-delete-all] 4 (#$ . 2657)]) #@15 (fn SET-ID) (defalias 'auto-o-get-full-buffer-list #[257 "\211\236A@\207" [auto-overlay-regexps] 3 (#$ . 2787)]) #@15 (fn SET-ID) (defalias 'auto-o-get-buffer-list #[257 "\300\301\302!\"\207" [mapcar car auto-o-get-full-buffer-list] 5 (#$ . 2909)]) #@22 (fn SET-ID BUFFER) (defalias 'auto-o-add-to-buffer-list #[514 "\236\211\205A@\236?\205\211ACA@B\240\207" [auto-overlay-regexps] 6 (#$ . 3049)]) #@22 (fn SET-ID BUFFER) (defalias 'auto-o-delete-from-buffer-list #[514 "\236\211\205\211A\301A@\"\240\207" [auto-overlay-regexps assq-delete-all] 7 (#$ . 3211)]) #@32 (fn SET-ID &optional BUFFER) (defalias 'auto-o-enabled-p #[513 "\211\206p\211\300!\236A\207" [auto-o-get-full-buffer-list] 6 (#$ . 3383)]) #@32 (fn SET-ID &optional BUFFER) (defalias 'auto-o-enable-set #[513 "\211\206p\211\300!\236\301\241\207" [auto-o-get-full-buffer-list t] 6 (#$ . 3533)]) #@32 (fn SET-ID &optional BUFFER) (defalias 'auto-o-disable-set #[513 "\211\206p\211\300!\236\301\241\207" [auto-o-get-full-buffer-list nil] 6 (#$ . 3693)]) #@15 (fn SET-ID) (defalias 'auto-o-save-filename #[257 "\300\301\302\303\304\305 \206\f\306 !#\303\307!R\207" ["auto-overlays-" replace-regexp-in-string "\\." "-" file-name-nondirectory buffer-file-name buffer-name symbol-name] 7 (#$ . 3856)]) #@29 (fn SET-ID DEFINITION-ID) (defalias 'auto-o-get-definition #[514 "\211\300!\236A\207" [auto-o-get-set] 5 (#$ . 4105)]) #@21 (fn SET-ID ENTRY) (defalias 'auto-o-append-definition #[514 "\300!C\244\207" [auto-o-get-set] 4 (#$ . 4233)]) #@21 (fn SET-ID ENTRY) (defalias 'auto-o-prepend-definition #[514 "\236AC\301!\244\241\207" [auto-overlay-regexps auto-o-get-set] 6 (#$ . 4353)]) #@25 (fn SET-ID POS ENTRY) (defalias 'auto-o-insert-definition #[771 "S\300!\233C\300!\233\244\241\207" [auto-o-get-set] 8 (#$ . 4506)]) #@29 (fn SET-ID DEFINITION-ID) (defalias 'auto-o-definition-class #[514 "\211\300!\236A@\207" [auto-o-get-set] 5 (#$ . 4652)]) #@29 (fn SET-ID DEFINITION-ID) (defalias 'auto-o-definition-complex-class-p #[514 "\300\"\301N\207" [auto-o-definition-class auto-overlay-complex-class] 5 (#$ . 4783)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-get-regexp #[771 "\211\300\"\236A\207" [auto-o-get-definition] 7 (#$ . 4957)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-regexp #[771 "\300#@\211:\204\f\207\211@\207" [auto-o-get-regexp] 7 (#$ . 5100)]) #@51 (fn SET-ID DEFINITION-ID REGEXP-ID &optional N) (defalias 'auto-o-regexp-group #[1027 "\211\204\300\262\301#@\300U\203'\211:\204\300\207\211A:\204#\211A\207\211A@\207\211:\2056\211A<\2056A8\207" [0 auto-o-get-regexp] 8 (#$ . 5255)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-props #[771 "\300\301#A!\207" [auto-o--plist-tail auto-o-get-regexp] 8 (#$ . 5511)]) #@43 (fn SET-ID DEFINITION-ID REGEXP-ID KEY) (defalias 'auto-o-regexp-key-value #[1028 "\300\301#\"\207" [auto-o--plist-get auto-o-get-regexp] 9 (#$ . 5668)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-edge #[771 "\300\301$\207" [auto-o-regexp-key-value :edge] 8 (#$ . 5834)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-match-exclusive #[771 "\300\301$\207" [auto-o-regexp-key-value :exclusive] 8 (#$ . 5981)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-parse-hook-function #[771 "\300\301$\207" [auto-o-regexp-key-value :parse-function] 8 (#$ . 6144)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-suicide-hook-function #[771 "\300\301$\207" [auto-o-regexp-key-value :suicide-function] 8 (#$ . 6316)]) #@39 (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-o-regexp-match-hook-function #[771 "\300\301$\207" [auto-o-regexp-key-value :match-function] 8 (#$ . 6492)]) #@16 (fn O-MATCH) (defalias 'auto-o-class #[257 "\300\301\302\"\301\303\"\"\207" [auto-o-definition-class overlay-get set-id definition-id] 6 (#$ . 6664)]) #@16 (fn O-MATCH) (defalias 'auto-o-regexp #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-regexp overlay-get set-id definition-id regexp-id] 7 (#$ . 6825)]) #@28 (fn O-MATCH &optional N) (defalias 'auto-o-group #[513 "\300\301\302\"\301\303\"\301\304\"$\207" [auto-o-regexp-group overlay-get set-id definition-id regexp-id] 8 (#$ . 7004)]) #@28 (fn O-MATCH &optional N) (defalias 'auto-o-regexp-match #[513 "\300\301!\302!\"\204 \207\303\"\211\205\"\304\305!\"\205\"\306\"\207" [buffer-substring-no-properties overlay-start overlay-end auto-o-group string-match auto-o-regexp match-string] 7 (#$ . 7194)]) #@20 (fn O-MATCH KEY) (defalias 'auto-o-key-value #[514 "\300\301\302\"\301\303\"\301\304\"$\207" [auto-o-regexp-key-value overlay-get set-id definition-id regexp-id] 8 (#$ . 7475)]) #@16 (fn O-MATCH) (defalias 'auto-o-edge #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-edge overlay-get set-id definition-id regexp-id] 7 (#$ . 7665)]) #@16 (fn O-MATCH) (defalias 'auto-o-props #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-props overlay-get set-id definition-id regexp-id] 7 (#$ . 7840)]) #@16 (fn O-MATCH) (defalias 'auto-o-match-exclusive #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-match-exclusive overlay-get set-id definition-id regexp-id] 7 (#$ . 8017)]) #@16 (fn O-MATCH) (defalias 'auto-o-complex-class-p #[257 "\300!\301N\207" [auto-o-class auto-overlay-complex-class] 3 (#$ . 8214)]) #@12 (fn A B) (defalias 'auto-o-priority-< #[514 "\300!\203\f\301\302\"\262\300!\203\301\302\"\262\204 \211\206+\205+\211\205+W\207" [overlayp overlay-get priority] 5 (#$ . 8351)]) #@16 (fn O-MATCH) (defalias 'auto-o-rank #[257 "\300\301\302\"\301\303\"\304\301\305\"!\236AA\"\207" [auto-o-assq-position overlay-get regexp-id definition-id auto-o-get-set set-id] 8 (#$ . 8552)]) #@16 (fn O-MATCH) (defalias 'auto-o-parse-hook-function #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-parse-hook-function overlay-get set-id definition-id regexp-id] 7 (#$ . 8756)]) #@16 (fn O-MATCH) (defalias 'auto-o-suicide-hook-function #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-suicide-hook-function overlay-get set-id definition-id regexp-id] 7 (#$ . 8961)]) #@16 (fn O-MATCH) (defalias 'auto-o-match-hook-function #[257 "\300\301\302\"\301\303\"\301\304\"#\207" [auto-o-regexp-match-hook-function overlay-get set-id definition-id regexp-id] 7 (#$ . 9170)]) #@16 (fn O-MATCH) (defalias 'auto-o-call-parse-function #[257 "\300!\301N!\302!\211\203\211!\210\210\207" [auto-o-class auto-overlay-parse-function auto-o-parse-hook-function] 5 (#$ . 9375)]) #@16 (fn O-MATCH) (defalias 'auto-o-call-suicide-function #[257 "\300!\301N!\302!\211\203\211!\210\210\207" [auto-o-class auto-overlay-suicide-function auto-o-suicide-hook-function] 5 (#$ . 9576)]) #@16 (fn O-MATCH) (defalias 'auto-o-call-match-function #[257 "\300!\301N\211\205\211!\302!\211\203\211!\210\210\207" [auto-o-class auto-overlay-match-function auto-o-match-hook-function] 6 (#$ . 9783)]) #@21 (fn OVERLAY EDGE) (defalias 'auto-o-edge-matched-p #[514 "\300\"\207" [overlay-get] 5 (#$ . 9998)]) #@16 (fn OVERLAY) (defalias 'auto-o-start-matched-p #[257 "\300\301\"\207" [overlay-get start] 4 (#$ . 10108)]) #@16 (fn OVERLAY) (defalias 'auto-o-end-matched-p #[257 "\300\301\"\207" [overlay-get end] 4 (#$ . 10224)]) (byte-code "\300\301!\204 \302\301\303\"\210\300\304!\204\302\304\305\"\210\300\207" [fboundp line-number-at-pos defalias #[256 "\211\204`\262\300e\"\212b\210n)\203\301\202\302\\\207" [count-lines 1 0] 4 "Return (narrowed) buffer line number at position POS.\n(Defaults to the point.)\n\n(fn &optional POS)"] replace-regexp-in-string #[771 "\211\300\"\203\301\302\211$\262\202\207" [string-match replace-match nil] 9 "Return a new string with all matches for REGEXP in STRING replaced\nwith REP.\n\n(fn REGEXP REP STRING)"]] 3) #@74 Return non-nil iff overlay A comes before overlay B in buffer. (fn A B) (defalias 'auto-overlay-< #[514 "\300!\300!=\205%\301!\301!W\206%\301!\301!U\205%\302!\302!V\207" [overlay-buffer overlay-start overlay-end] 5 (#$ . 10885)]) #@1412 Return auto overlays overlapping region between START and END. If keyword argument :within is non-nil, only overlays entirely within START and END are returned. If keyword argument :inactive is non-nil, both active and inactive overlays are returned (usually inactive ones are ignored). If keyword argument :all-overlays is non-nil, all overlays are returned, not just auto-overlays. Any remaining arguments (which *must* come after any keyword arguments) specify property tests, each of which should be a list with one of the following forms: PROPERTY (FUNCTION PROPERTY) (FUNCTION PROPERTY VALUE) (FUNCTION (PROPERTY1 PROPERTY2 ...) (VALUE1 VALUE2 ...)) where PROPERTY indicates an overlay property name (a symbol), and VALUE indicates an arbitrary value or lisp expression. For each overlay between START and END, first the values corresponding to the property names are retrieved from the overlay, then FUNCTION is called with the properties values followed by the other values as its arguments. The test is satisfied if the result is non-nil, otherwise it fails. A PROPERTY symbol on its own tests whether that property has a non-null value, equivalent to (identity PROPERTY). Tests are evaluated in order, but only up to the first failure. Only overlays that satisfy all property tests are returned. (fn START END &rest PROP-TESTS &key WITHIN INACTIVE ALL-OVERLAYS &allow-other-keys) (defalias 'auto-overlays-in #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\304\301\302\303$\262\204#\305B\262\211\204,\306B\262\307!\210U\204;\307!\210\310\211\211\211\311\n\n\"\211\203\346\211@\3122\336\203k\313!\fW\204f\314! V\203k\315\312\310\"\210 \211\203\325\211@\2119\203\207\316\"\204\316\315\312\310\"\210\202\316\211@\262\211A@\211\262<\204\231C\262\310\262\211G\317W\204\265\3208\211\262\203\261<\204\265C\262\321\322\323\324\325\"\n\"\"\"\204\316\315\312\310\"\210A\266\202\202m\210\211B\211\2620\210A\266\202\202E\210\237\207" [plist-member :within :inactive :all-overlays auto-o--plist-delete (null inactive) (identity auto-overlay) auto-overlay-trigger-update nil overlays-in failed overlay-start overlay-end throw overlay-get 3 2 apply append mapcar make-closure #[257 "\301\300\"\207" [V0 overlay-get] 4 "\n\n(fn P)"]] 21 (#$ . 11135)]) #@1181 Return overlays overlapping POINT, defaulting to the point. If keyword argument :inactive is non-nil, both active and inactive overlays are returned (usually inactive ones are ignored). If keyword argument :all-overlays is non-nil, all overlays are returned, not just auto-overlays. Any remaining arguments (which *must* come after any keyword arguments) specify property tests, each of which should be a list with one of the following forms: (FUNCTION PROPERTY) (FUNCTION PROPERTY VALUE) (FUNCTION (PROPERTY1 PROPERTY2 ...) (VALUE1 VALUE2 ...)) where PROPERTY indicates an overlay property name (a symbol), and VALUE indicates an arbitrary value or lisp expression. For each overlay between START and END, first the values corresponding to the property names are retrieved from the overlay, then FUNCTION is called with the properties values followed by the other values as its arguments. The test is satisfied if the result is non-nil, otherwise it fails. Tests are evaluated in order, but only up to the first failure. Only overlays that satisfy all property tests are returned. (fn &optional POINT &rest PROP-TESTS &key INACTIVE ALL-OVERLAYS &allow-other-keys) (defalias 'auto-overlays-at-point #[384 "\300\301\"A@\300\302\"A@\204`\262\303!\210\304\305\306\211$\262\305\306S$\211\203P\211@\307!W\203I\310!U\203I\211B\262A\266\202\202,\210\305\306\211T$\211\203~\211@\310!V\203w\307!U\203w\211B\262A\266\202\202Z\210\207" [plist-member :inactive :all-overlays auto-overlay-trigger-update nil apply auto-overlays-in overlay-start overlay-end] 10 (#$ . 13474)]) #@392 Return highest priority overlay at POINT, defaulting to the point. If two overlays have the same priority, the innermost one takes precedence (i.e. the one that begins later, or if they begin at the same point the one that ends earlier). The remaining arguments are as for `auto-overlays-at' (which see). (fn &optional POINT &rest PROP-TESTS &key INACTIVE ALL-OVERLAYS &allow-other-keys) (defalias 'auto-overlay-highest-priority-at-point #[384 "\300\301\"A@\300\302\"A@\204`\262\303\304#\211A\262\242\305\211\211\203y\211@\306\307\"\262\306\307\"\262\204;\204o\203I\203IV\204o\232\203r\310!\310!V\204o\310!\310!U\203r\311!\311!W\203r\211\262A\266\202\202!\210\207" [plist-member :inactive :all-overlays apply auto-overlays-at-point nil overlay-get priority overlay-start overlay-end] 13 (#$ . 15107)]) #@672 Return "overlay local " binding of SYMBOL at POINT, or the current local binding if there is no overlay binding. If there is no overlay binding and SYMBOL is not bound, return nil. POINT defaults to the point. If ONLY-OVERLAY is non-nil, only overlay bindings are returned. If none exists at POINT, nil is returned An "overlay local" binding is created by giving an overlay a non-nil value for a property named SYMBOL. If more than one overlay at POINT has a non-nil SYMBOL property, the value from the highest priority overlay is returned. See `auto-overlay-highest-priority-at-point' for a definition of "highest priority". (fn SYMBOL &optional POINT ONLY-OVERLAY) (defalias 'auto-overlay-local-binding #[769 "\300\301D\"\211\203\302\"\207?\205\303!\205J\207" [auto-overlay-highest-priority-at-point identity overlay-get boundp] 7 (#$ . 15964)]) #@1373 Load the set of auto-overlay DEFINITIONS into the set identified by SET-ID the current buffer. DEFINITIONS should be a list of the form: (DEFINITION1 DEFINITION2 ... ) The DEFINITION's should be lists of the form: (CLASS @optional :id DEFINITION-ID @rest REGEXP1 REGEXP2 ... ) CLASS is a symbol specifying the auto-overlay class. The standard classes are 'word, 'line, 'self, 'flat and 'nested. The :id property is optional. It should be a symbol that can be used to uniquely identify DEFINITION (see `auto-overlay-unload-definition'). The REGEXP's should be lists of the form: (RGXP &optional :edge EDGE :id REGEXP-ID &rest PROPERTY1 PROPERTY2 ... ) RGXP is either a single regular expression (a string), or a cons cell of the form (RGXP . GROUP) where RGXP is a regular expression and GROUP is an integer specifying which group in the regular expression forms the delimiter for the auto-overlay. The rest of the PROPERTY entries should be cons cells of the form (NAME . VALUE) where NAME is an overlay property name (a symbol) and VALUE is its value. The :edge and :id properties are optional. EDGE should be one of the symbols 'start or 'end. If it is not specified, :edge is assumed to be 'start. ID property is a symbol that can be used to uniquely identify REGEXP (see `auto-overlay-unload-regexp'). (fn SET-ID DEFINITIONS &optional NOPARSE) (defalias 'auto-overlay-load-set #[770 "\300\301\302\"\"\204\303!\203\304!\210\207" [mapcar make-closure #[257 "\301\300\302\303$\207" [V0 auto-overlay-load-definition nil no-parse] 6 "\n\n(fn DEF)"] auto-o-enabled-p auto-o-parse-buffer] 7 (#$ . 16837)]) #@1898 Load DEFINITION into the set of auto-overlay definitions SET-ID in the current buffer. If SET-ID does not exist, it is created. If POS is nil, DEFINITION is added at the end of the list of auto-overlay definitions. If it is t, it is added at the beginning. If it is an integer, it is added at that position in the list. The position in the list makes no difference to the behaviour of the auto-overlays. But it can make a difference to the speed and efficiency. In general, higher-priority and exclusive DEFINITIONS should appear earlier in the list. Returns a unique id for the loaded definition, which can be used to unload it later using `auto-overlay-unload-definition' (which see). DEFINITION should be a list of the form: (CLASS @optional :id DEFINITION-ID @rest REGEXP1 REGEXP2 ... ) CLASS is a symbol specifying the auto-overlay class. The standard classes are `word', `line', `self', `flat' and `nested'. The :id property is optional. It should be a symbol that uniquely identifies the DEFINITION within SET-ID (see `auto-overlay-unload-definition'). REGEXP should be a list of the form: (RGXP &optional :edge EDGE :id REGEXP-ID &rest PROPERTY1 PROPERTY2 ... ) RGXP is either a single regular expression (a string), or a cons cell of the form (RGXP . GROUP) where RGXP is a regular expression and GROUP is an integer specifying which group in the regular expression forms the delimiter for the auto-overlay. The rest of the PROPERTY entries should be cons cells of the form (NAME . VALUE) where NAME is an overlay property name (a symbol) and VALUE is its value. The EDGE and ID properties are optional. EDGE should be one of the symbols `start' or `end'. If it is not specified, :edge is assumed to be `start'. ID should be a symbol that uniquely identifies REGEXP within DEFINITION (see `auto-overlay-unload-regexp'). (fn SET-ID DEFINITION &optional POS NOPARSE) (defalias 'auto-overlay-load-definition #[1026 "\300!@\301\204\302!\210\303p\"\210\300!\262\301\304\305\"\211\262\2046\306\307\310\311\312\"#T\266\202\202\\\211T8\262\313\314\315#\314 \316\\\"\"\262\236\203[\317\320\321!\"\210\210\322=\204tG\315U\204t\250\203\315X\203\323D\"\210\202\251\203\217\250\203\232GY\203\232\324D\"\210\202\251\250\203\251\325D#\210\326A!\211\203\304\211@\327 \301\330%\210A\266\202\202\256\210\331!\203\326\204\326\332\"\210\207" [auto-o-get-set nil auto-o-create-set auto-o-add-to-buffer-list auto-o-position :id apply max -1 mapcar #[257 "\211@\250\203 \211@\207\300\207" [-1] 2 "\n\n(fn ELT)"] append auto-o-sublist 0 2 error "Definition ID \"%s\" is not unique" symbol-name t auto-o-prepend-definition auto-o-append-definition auto-o-insert-definition auto-o--plist-tail auto-overlay-load-regexp no-parse auto-o-enabled-p auto-o-parse-buffer] 15 (#$ . 18482)]) #@1123 Load REGEXP into the auto-overlay definition identified by DEFINITION-ID in the regexp list named SET-ID in the current buffer. If POS is nil, REGEXP is added at the end of the definition. If it is t, it is added at the beginning. If it is an integer, it is added at that position. REGEXP should be a list of the form: (RGXP &optional :edge EDGE :id REGEXP-ID &rest PROPERTY1 PROPERTY2 ... ) RGXP is either a single regular expression (a string), or a cons cell of the form (RGXP . GROUP) where RGXP is a regular expression and GROUP is an integer specifying which group in the regular expression forms the delimiter for the auto-overlay. The rest of the PROPERTY entries should be cons cells of the form (NAME . VALUE) where NAME is an overlay property name (a symbol) and VALUE is its value. The :edge and :id properties are optional. EDGE should be one of the symbols `start' or `end'. If it is not specified, :edge is assumed to be `start'. ID property is a symbol that can be used to uniquely identify REGEXP (see `auto-overlay-unload-regexp'). (fn SET-ID DEFINITION-ID REGEXP &optional POS NOPARSE) (defalias 'auto-overlay-load-regexp #[1283 "\300!\236\301\204\302\303\304!\304\n!#\210\305\306\"\211\262\203:\211\236\2031\302\307\304!\"\210\202H\310\306\"\262\202H\311\312\313\314\315AA\"#T\262\211B\262\203_\250\203gAAGY\203gC\244\210\202\232\316=\204x\250\203\205\317X\203\205ACAA\244\241\210\202\232\250\203\232SAA\233CAA\233\244\241\210\320!\203\254\204\254\321\"\210\207" [auto-o-get-set nil error "Definition \"%s\" not found in auto-overlay regexp set %s" symbol-name auto-o--plist-get :id "Regexp ID \"%s\" is not unique" auto-o--plist-delete apply max -1 mapcar #[257 "\211@\250\203 \211@\207\300\207" [-1] 2 "\n\n(fn ELT)"] t 0 auto-o-enabled-p auto-o-parse-buffer] 13 (#$ . 21363)]) #@75 Unload the entire regexp set SET-ID from the current buffer. (fn SET-ID) (defalias 'auto-overlay-unload-set #[257 "\300!\203\n\301!\210\302p\"\210\303!\207" [auto-o-enabled-p auto-overlay-stop auto-o-delete-from-buffer-list auto-o-delete-set] 4 (#$ . 23247)]) #@144 Unload auto-overlay definition DEFINITION-ID in set SET-ID from the current buffer. Returns the deleted definition. (fn SET-ID DEFINITION-ID) (defalias 'auto-overlay-unload-definition #[514 "r\301!\211\2034\211@\211q\210\302!\203-\303\304\305\"\306ed\307\310\311\312\313 E\312\314 E&\"\210A\266\202\202\210\211\315!\236\316\211\211\317\236\"\210@\262A@\262AA\262\320E\262\211\211\203v\211@A@\320@EAA\244C\244\210A\266\202\202Z\210\266\204)\207" [auto-overlay-regexps auto-o-get-buffer-list auto-o-enabled-p mapc make-closure #[257 "\301\302!!\303\304\"\210\305\306\211\300$\207" [V0 line-number-at-pos overlay-start auto-o-suicide force auto-o-schedule-update nil] 7 "\n\n(fn O)"] auto-overlays-in :all-overlays t (identity auto-overlay-match) eq set-id definition-id auto-o-get-set nil assq-delete-all :id] 16 (#$ . 23520)]) #@188 Unload the regexp identified by REGEXP-ID from auto-overlay definition DEFINITION-ID in set SET-ID of the current buffer. Returns the deleted regexp. (fn SET-ID DEFINITION-ID REGEXP-ID) (defalias 'auto-overlay-unload-regexp #[771 "r\300!\211\2039\211@\211q\210\301!\2032\302\303\304\"\305ed\306\307\310\311\312E\311\313E\311\314E&\"\210A\266\202\202\210\315!\236A\236\316\211\211\211\317\"\210@\262A@\262\3208\262\321\233\262\322\323\324\257\"\262\266\206)\207" [auto-o-get-buffer-list auto-o-enabled-p mapc make-closure #[257 "\301\302!!\303\304\"\210\305\306\211\300$\207" [V0 line-number-at-pos overlay-start auto-o-suicide force auto-o-schedule-update nil] 7 "\n\n(fn O)"] auto-overlays-in :all-overlays t (identity auto-overlay-match) eq set-id definition-id regexp-id auto-o-get-set nil assq-delete-all 2 3 append :edge :id] 18 (#$ . 24391)]) #@243 Make TO-BUFFER share the regexp set identified by SET-ID with FROM-BUFFER. Any changes to that regexp set in either buffer will be reflected in the other. TO-BUFFER defaults to the current buffer. (fn SET-ID FROM-BUFFER &optional TO-BUFFER) (defalias 'auto-overlay-share-regexp-set #[770 "\211\204p\262\301rq\210\236\262q\210\302\"\211B\303\")\207" [auto-overlay-regexps nil assq-delete-all auto-o-add-to-buffer-list] 7 (#$ . 25291)]) #@821 Activate the set of auto-overlay regexps identified by SET-ID in BUFFER, or the current buffer if none is specified. If optional argument OVERLAY-FILE is nil, try to load the overlays from the default save file if it exists. If OVERLAY-FILE is a string, it specifies the location of the file (if only a directory is given, it will look for the default filename in that directory). Anything else will cause the save file to be ignored, and the buffer will be reparsed from scratch, as if the save file did not exist. If the overlays are being loaded from a save file, but optional argument NO-REGEXP-CHECK is non-nil, the file of saved overlays will be used, but no check will be made to ensure regexp definitions are the same as when the overlays were saved. (fn SET-ID &optional BUFFER OVERLAY-FILE NO-REGEXP-CHECK) (defalias 'auto-overlay-start #[1025 "r\203q\210\300\301!\210\302\303\304\305\306$\210\302\303\307\305\306$\210\302\303\310\305\306$\210\311!?\205B\312!\210\2035;\205;\313\305$?\205B\314!)\207" [run-hooks auto-overlay-load-hook add-hook after-change-functions auto-o-run-after-change-functions nil t auto-o-schedule-update auto-o-schedule-delete-in-front-or-behind-suicide auto-o-enabled-p auto-o-enable-set auto-overlay-load-overlays auto-o-parse-buffer] 9 (#$ . 25749)]) #@777 Clear all auto-overlays in the set identified by SET-ID from BUFFER, or the current buffer if none is specified. If SAVE-FILE is non-nil and the buffer is associated with a file, save the overlays to a file to speed up loading if the same set of regexp definitions is enabled again. If SAVE-FILE is a string, it specifies the location of the file to save to (if it only specifies a directory, the default filename is used). Anything else will cause the overlays to be saved to the default file name in the current directory. If LEAVE-OVERLAYS is non-nil, don't bother deleting the overlays from the buffer (this is generally a bad idea, unless the buffer is about to be killed in which case it speeds things up a bit). (fn SET-ID &optional BUFFER SAVE-FILE LEAVE-OVERLAYS) (defalias 'auto-overlay-stop #[1025 "r\203q\210\304!\210\203;\204\305\262\306\305#\210\211\2047\307\310\311ed\312\313\314\313\315\316D\317\320E&\"\210\3212X\211\203U\211@\322@!\203N\323\321\313\"\210A\266\202\202<\210\3050?\205s\324\325!\210\326\327\330\313#\210\326\327\331\313#\210\305\211\305\211)\207" [auto-overlay-regexps auto-o-pending-suicides auto-o-pending-updates auto-o-pending-post-suicide auto-o-disable-set nil auto-overlay-save-overlays mapc delete-overlay auto-overlays-in :all-overlays t :inactive #[514 "\206\211\207" [] 3 "\n\n(fn OVERLAY MATCH)"] (auto-overlay auto-overlay-match) eq set-id enabled auto-o-enabled-p throw run-hooks auto-overlay-unload-hook remove-hook after-change-functions auto-o-schedule-update auto-o-run-after-change-functions] 18 (#$ . 27065)]) #@473 Save overlays in set SET-ID in BUFFER to FILE. Defaults to the current buffer. If FILE is nil or a directory, and if the buffer is associated with a file, the filename is constructed from the buffer's file name and SET-ID. The directory is created if necessary. If the buffer is not associated with a file and FILE doesn't specify a filename, an error occurs. The overlays can be loaded again later using `auto-overlay-load-overlays'. (fn SET-ID &optional BUFFER FILE) (defalias 'auto-overlay-save-overlays #[769 "r\203q\210\211\203\300!\206\301\203\302!\206\301\211\301\230\2035\303 \2031\304!\262\2025\305\306!\210\307\310\"\210P\266\203\311\312!\313\314\315p!\"\210\316!\210\314\315\317\320!!!\"\210\316!\210\321\322ed\323\310\324\325\326 E&\327\"\262\330\331\332\"\"\210rq\210\333!\210)\334!\266\202)\207" [file-name-directory "" file-name-nondirectory buffer-file-name auto-o-save-filename error "Can't save overlays to default filename when buffer isn't visiting a file" make-directory t generate-new-buffer " *auto-overlay-save*" nil prin1 md5 terpri prin1-to-string auto-o-get-set sort auto-overlays-in :all-overlays auto-overlay-match eq set-id auto-overlay-< mapc make-closure #[257 "\301\302\303\"\302\304\"\305!\306!\307\302\310\"!\307\302\311\"!\257\300\"\210\312\300!\207" [V0 prin1 overlay-get definition-id regexp-id overlay-start overlay-end marker-position delim-start delim-end terpri] 11 "\n\n(fn O)"] write-file kill-buffer] 15 (#$ . 28669)]) #@909 Load overlays for BUFFER from FILE. Returns t if successful, nil otherwise. Defaults to the current buffer. If FILE is null, or is a string that only specifies a directory, the filename is constructed from the buffer's file name and SET-ID. If the buffer is not associated with a file and FILE doesn't specify a full filename, an error occurs. The FILE should be generated by `auto-overlay-save-overlays'. By default, the buffer contents and regexp definitions for SET-ID will be checked to make sure neither have changed since the overlays were saved. If they don't match, the saved overlay data will not be loaded, and the function will return nil. If NO-REGEXP-CHECK is non-nil, the check for matching regexp definitions will be skipped; the saved overlays will be loaded even if different regexp definitions were active when the overlays were saved. (fn SET-ID &optional BUFFER FILE NO-REGEXP-CHECK) (defalias 'auto-overlay-load-overlays #[1025 "r\203q\210\203\300!\206\301\203\302!\206\301\211\301\230\203*\303!\262P\262\266\304!\205\305\306\"\307\211\211\211C\307\211\310rq\210eb\210)\311!\262\311!\262\312p!\230\203s\204}\312\313\314!!!\230\204}\315!\266 \307\202rq\210\316`d\"\262)\317\320\"\210\3211\235\311!\211\2620\202\241\210\202\203\322 @A@\323\n8\324 8\325\f8\326 8&\240\210\327\330\242\331\"\330\242\332\"\333\334\242!\236A#\204\372\335\242!\262<\204\352C\262\336\337\340#\"\210\341\242!\210\211T\262\342\343\"\310U\203\216\317\344#\210\202\216\315!\266 \306)\207" [file-name-directory "" file-name-nondirectory auto-o-save-filename file-exists-p find-file-noselect t nil 0 read md5 prin1-to-string auto-o-get-set kill-buffer count-lines message "Loading auto-overlays...(1 of %d)" 'end-of-file auto-o-make-match 2 3 4 5 auto-o-within-exclusive-p overlay-get delim-start delim-end priority auto-o-props auto-o-call-parse-function mapc make-closure #[257 "\302\303\304#\210\302\305\300#\210\302\306\307\301\242\306\"#\210\302\310\307\301\242\310\"#\207" [V0 V1 overlay-put auto-overlay t set-id definition-id overlay-get regexp-id] 7 "\n\n(fn O)"] auto-o-call-match-function mod 10 "Loading auto-overlays...(%d of %d)"] 22 (#$ . 30189)]) #@20 (fn BEG END LEN) (defalias 'auto-o-run-after-change-functions #[771 "?\205lU\204\211\306U\204U\205l\211\306U?\205l \2042\n\2042 \2042\f\2042 \205l \203=\307\310 \"\210\311\n\203H\307\312\n\"\210\311 \203S\307\313 \"\210\311\f\203^\307\314\f\"\210\311 \203\307\315 \"\210\311\202\207" [undo-in-progress auto-o-pending-pre-suicide auto-o-pending-suicides auto-o-pending-post-suicide auto-o-pending-updates auto-o-pending-post-update 0 mapc #[257 "\300@A\"\207" [apply] 4 "\n\n(fn F)"] nil auto-o-suicide #[257 "\300@A\"\207" [apply] 4 "\n\n(fn F)"] #[257 "\300@A\"\207" [auto-overlay-update] 4 "\n\n(fn L)"] #[257 "\300@A\"\207" [apply] 4 "\n\n(fn F)"]] 6 (#$ . 32456)]) #@42 (fn START &optional END UNUSED SET-ID) (defalias 'auto-o-schedule-update #[1025 "\214~\210\301!\262\203\301!\202\262\211\204\"BC\202~@@X\2037BC\244\211\262\202~\3022V\211A\205UA@@X\203N\303\302\304\"\210\211A\262\202;0\210@ATX\203p@AV\203~\211@\241\210\202~\211BCA\244\241\210\211A\262\211A\205\244\211@ATA@@Y\205\244\211@@AA@A]\241\210\211AA\241\210\202~\262)\207" [auto-o-pending-updates line-number-at-pos found throw t] 9 (#$ . 33171)]) #@22 (fn START END LEN) (defalias 'auto-o-schedule-delete-in-front-or-behind-suicide #[771 "\211\301U?\205;\302\303\304\305\306$\211\2059\211@\307!U\204#\310!U\2032\211>\203.\210\2022\211BA\266\202\202 \262\207" [auto-o-pending-suicides 0 auto-overlays-at-point nil :all-overlays t (identity auto-overlay-match) overlay-end overlay-start] 8 (#$ . 33672)]) #@47 (fn O-SELF &optional MODIFIED &rest UNUSED) (defalias 'auto-o-schedule-suicide #[641 "?\205>\203 \207B\211\207" [auto-o-pending-suicides] 5 (#$ . 34048)]) #@61 (fn &optional START-LINE END-LINE SET-IDS DEFINITION-IDS) (defalias 'auto-overlay-update #[1024 "\204 \303\304\"\262\202:\204C\262\211<\204\211C\262\214~\210\305C\305C\305\211\211\211\211\211\211\211 \2047\306 \262\212\307 \310\311\"\216\312b\210 \313=\203T\314\315\305\316S$\210\202YSy\210 \203g ZT\202h\312\317\211W\205(\305\211\203\211@\320!\203\321!\211\203\211@\211A\262\242\240\210\203\237\242>\203 \211A\262\211G\317\211W\203 \2118@\240\210\322\242\242#\262\323\242\242#\262\324\325\242\242#\236A\262\317y\210\305\314\326 \313#)\203\224\211\262\203\376\225\211\262 \204\327\330#\210\331\317\224\317\225\242\242&\211\262\2034\332\333\" \305\223\210\332\334\"\f\305\223\210\202\373\335\224\225\242\242\336\f\242\242#&\211\262\203\236\337\332\324\"\"\204j\211\340!W\203\373\341!\210\342\242\242\317\224\317\225&\262\332\343\"\203\226\344\332\343\"\"\210\345!\210\202\373\346\224\225#\203\302\342\242\242\317\224\317\225&\210\202\373\342\242\242\317\224\317\225&\262\347!\262 <\204\350 C\262\350\310\351\n$\"\210\345!\210\317\224Tb\210\202\337\210\211T\262\202\246\266A\266\202\202\201\210\312y\210A\266\202\202r\266\211T\262\202i\266\202)\262)\266\212)\207" [auto-overlay-regexps selective-display case-fold-search mapcar car nil line-number-at-pos match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 1 t re-search-forward "[\n ]" end 0 auto-o-enabled-p auto-o-get-set auto-o-regexp-regexp auto-o-regexp-group priority auto-o-regexp-props line-end-position error "Match for regexp \"%s\" has no group %d" auto-o-matched-p overlay-get delim-start delim-end auto-o-overlapping-match auto-o-regexp-edge auto-o-priority-< auto-o-rank delete-overlay auto-o-make-match parent auto-o-match-overlay auto-o-call-match-function auto-o-within-exclusive-p auto-o-call-parse-function mapc #[257 "\303\304\305#\210\303\306\302#\210\303\307\300\242#\210\303\310\301\242#\207" [V0 V1 V2 overlay-put auto-overlay t set-id definition-id regexp-id] 5 "\n\n(fn O)"]] 35 (#$ . 34221)]) #@86 Trigger auto-overlay update at POINT, defaulting to the point. (fn &optional POINT) (defalias 'auto-overlay-trigger-update #[256 "\211\204`\262\303\304 \303\211\303\305\306\"\216\212b\210\307c\210\310\311!-\262)\207" [inhibit-read-only buffer-undo-list inhibit-modification-hooks t buffer-modified-p make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] " " delete-char -1] 6 (#$ . 36458)]) #@46 (fn &optional SET-ID DEFINITION-ID BUFFER) (defalias 'auto-o-parse-buffer #[768 "\212r\211\206pq\210\300ed\"eb\210\301\302\"\210\211\303\211W\203C\211\304\305\"\306U\203/\301\307T#\210\310\311\211  $\210\312y\266\211T\262\202\266\301\313!\262*\207" [count-lines message "Scanning for auto-overlays...(line 1 of %d)" 0 mod 10 9 "Scanning for auto-overlays...(line %d of %d)" auto-overlay-update nil 1 "Scanning for auto-overlays...done"] 12 (#$ . 36894)]) #@31 (fn O-SELF &optional FORCE) (defalias 'auto-o-suicide #[513 "\214~\210\211?\205#\300!\205#\212\301!b\210\302\303!!)\205#\304\225\305!U?\205~\306\307\"\310\203s\311!\203o\306\312!\313=\203E\313\202F\314\"\262\211\203W\315!\315!Y\203o\316!\211\203n\211@\317@\310#\210A\266\202\202Z\210\320!\210\266\321\301!!\210\322!)\207" [overlay-buffer overlay-start looking-at auto-o-regexp 0 overlay-end overlay-get parent nil auto-o-complex-class-p auto-o-edge start end auto-o-rank auto-o-props overlay-put auto-o-call-suicide-function auto-o-schedule-update delete-overlay] 10 (#$ . 37375)]) #@49 (fn SET-ID BEG END OLD-PRIORITY NEW-PRIORITY) (defalias 'auto-o-update-exclusive #[1285 "\300\203k\203V\203k\301\302\303\304\305\fE\306\307\310\"\311D\312\313 E&\262\211\211\203>\211@\314\315\303#\210A\266\202\202+\210\301\316\303\317\304\305 E\320\321\322D\323\324\fCE& \262\211\211\205j\211@\325!\210A\266\202\202Y\207\205\347\203yW\205\347\301\302\303\326\303\304\305E\327\330\313\fE& \262\211\211\203\243\211@\314\315\300#\210A\266\202\202\220\210\301\316\303\331\304\305 E\332\333\334 CE&\262\211\211\205\345\211@\335!\204\336\336!\211<\204\323\211C\262\337\307\340 #\"\266A\266\202\202\273\262\207" [nil auto-overlays-in :within t eq set-id (identity start) make-closure #[771 "\301\300\"?\206 \205 \211\207" [V0 auto-o-definition-complex-class-p] 6 "\n\n(fn DEFINITION-ID START END)"] (definition-id start end) #[514 "?\206W\207" #1=[] 4 "\n\n(fn PRI NEW)"] priority overlay-put inactive :all-overlays (identity auto-overlay-match) (identity parent) #[257 "\300\301\"?\207" [overlay-get inactive] 4 "\n\n(fn PARENT)"] parent #[1028 "\300\301#\236A\211?\206\211W\207" [priority auto-o-regexp-props] 9 "\n\n(fn SET-ID DEFINITION-ID REGEXP-ID NEW-PRI)"] (set-id definition-id regexp-id) auto-o-call-suicide-function :inactive (identity inactive) #[514 "\211?\206Y\207" #1# 4 "\n\n(fn PRI NEW)"] (identity auto-overlay-match) (null parent) #[1028 "\300\301#\236A?\206\211Y\207" [priority auto-o-regexp-props] 9 "\n\n(fn SET-ID DEFINITION-ID REGEXP-ID NEW-PRI)"] (set-id definition-id regexp-id) auto-o-within-exclusive-p auto-o-call-parse-function mapc #[257 "\302\303\304#\210\302\305\300#\210\302\306\307\301\306\"#\210\302\310\307\301\310\"#\207" [V0 V1 overlay-put auto-overlay t set-id definition-id overlay-get regexp-id] 7 "\n\n(fn O)"]] 18 (#$ . 37998)]) #@81 (fn SET-ID DEFINITION-ID REGEXP-ID START END &optional DELIM-START DELIM-END) (defalias 'auto-o-make-match #[1797 "\300\301\302\301%\303\304\305#\210\303\306\n#\210\303\307 #\210\303\310#\210\303\311\312 \2031\2023\301\223#\210\313\314\311\"\301\"\210\303\315\312 \203L\202N\301\223#\210\313\314\315\"\305\"\210\313\314\311\"\305\"\210\313\314\315\"\301\"\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\207" [make-overlay nil front-advance overlay-put auto-overlay-match t set-id definition-id regexp-id delim-start make-marker set-marker-insertion-type overlay-get delim-end modification-hooks (auto-o-schedule-suicide) insert-in-front-hooks (auto-o-schedule-suicide) insert-behind-hooks (auto-o-schedule-suicide)] 14 (#$ . 39868)]) #@768 Match start and end of OVERLAY with START and END match overlays. If START or END are numbers or markers, move that edge to the buffer location specified by the number or marker and make it unmatched. If START or END are non-nil but neither of the above, make that edge unmatched. If START or END are null, don't change that edge. However, if END is null, and START is an `end' overlay, match end of OVERLAY rather than start. If NO-PARSE is non-nil, block re-parsing due to exclusive overlay changes. If NO-PROPS is non-nil, block updating of overlay's properties. If PROTECT-MATCH is non-nil, don't modify any match overlays associated with OVERLAY (i.e. don't modify their `parent' properties). (fn OVERLAY START &optional END NO-PROPS NO-PARSE PROTECT-MATCH) (defalias 'auto-o-match-overlay #[1538 "\300!\301!\302\303\"\302 \304\"\302\n\305\"\302 \306\" \2048\307 !\2038\310 !\304=\2038\n\262\n\311\262 \312\f\307 !\203J\302 \313\"\202c\314 !\203V\f\202c\f\203_e\202c\300!\307 !\203r\302 \315\"\202\213\314 !\203~\f\202\213\f\203\207d\202\213\301!#\210\n\203\311\203\250\n=\204\250\204\250\316\317\311#\210\307 !\204\271\316\f\303\311#\210\202\311\316\f\303 #\210\316 \317#\210 \203\203\344 =\204\344\204\344\316\317\311#\210\307\n!\204\365\316\f\304\311#\210\202\316\f\304\f#\210\316\n\317#\210\204\265\n\203,\203,\320!\211\203+\211@\316@\311#\210A\266\202\202\210 \203N\203N\320!\211\203M\211@\316@\311#\210A\266\202\2028\210\311\321 !\204b\320\302\304\"!\262\202\222\322 !\204u\320\302\303\"!\262\202\222\302 \303\"\302\304\"\320\323!\323!X\203\216\202\217!\266\203\211@9\203\234\211C\262\211\211\203\263\211@\316@A#\210A\266\202\202\235\266\206\277\302\f\324\"?\205\226\302\f\325\"\300 !\301!\302\305\"\302\306\"\204\344?\206\224\204\365\203\365\326\311%\207\203 \204 \326\f\f \311%\207 W\204 V\203(\326 \311%\210\326\311%\207U\204=\326 ] ^ %\210 V\203W\203W\326\f \311%\210\202k W\203k\203k\326 \311%\210\nW\203\201\203\201\326\f \311%\207\nV\205\224\205\224\326 \311%\266\205\207" [overlay-start overlay-end overlay-get start end exclusive priority overlayp auto-o-edge nil move-overlay delim-end number-or-marker-p delim-start overlay-put parent auto-o-props auto-o-start-matched-p auto-o-end-matched-p auto-o-rank inactive set-id auto-o-update-exclusive] 23 (#$ . 40652)]) #@283 Delete OVERLAY from buffer. If PROTECT-MATCH is non-nil, don't modify any match overlays associated with OVERLAY (i.e. leave their `parent' properties alone). If NO-PARSE is non-nil, block re-parsing due to exclusive overlay changes. (fn OVERLAY &optional NO-PARSE PROTECT-MATCH) (defalias 'auto-o-delete-overlay #[769 "\300!\301!\302\303!\210\304\305\"\211\262\204\304\306\"\262\204:\304\307\"\203:\310\304\311\"\304\n\312\"\302%\210?\205`\304\305\"\211\262\203P\313\314\302#\210\304\306\"\211\262\205`\313\314\302#\207" [overlay-start overlay-end nil delete-overlay overlay-get start end exclusive auto-o-update-exclusive set-id priority overlay-put parent] 13 (#$ . 43191)]) #@66 (fn BEG END SET-ID DEFINITION-ID REGEXP-ID &optional PRIORITY) (defalias 'auto-o-matched-p #[1541 "\300C\3012(\302\303\304  &\305  \306\307\310\311\312E&\"0\210\211\242\207" [nil match mapc make-closure #[257 "\306\307\"\302=\203\306\310\"\303=\204#\311!\205;\312\306\313\"\304\"?\205;\314!\300U\205;\315!\301U\205;\305\240\210\316\317\320\"\207" [V0 V1 V2 V3 V4 V5 overlay-get definition-id regexp-id auto-o-match-exclusive auto-o-priority-< priority overlay-start overlay-end throw match t] 5 "\n\n(fn O)"] auto-overlays-in :all-overlays t (identity auto-overlay-match) eq set-id] 18 (#$ . 43911)]) #@37 (fn MATCH &optional END PRIORITY) (defalias 'auto-o-within-exclusive-p #[769 "\204\300\301\"\262\300\302\"\262\300\303\"\262\304\305\306\302E$\207" [overlay-get delim-end priority delim-start auto-overlays-in (identity exclusive) #[514 "\205\f\211?\206\fV\207" [] 4 "\n\n(fn P Q)"]] 10 (#$ . 44551)]) #@52 (fn BEG END SET-ID DEFINITION-ID REGEXP-ID EDGE) (defalias 'auto-o-overlapping-match #[1542 "\3002&\301\302\303&\304\305\306\307\310\311 E&\"\210\3120\207" [match mapc make-closure #[257 "\305\306\"\302=\2051\305\307\"\303=?\2051\310!\304=\2051\305\311\"\301W\2051\305\312\"\300V\2051\313\314\"\207" [V0 V1 V2 V3 V4 overlay-get definition-id regexp-id auto-o-edge delim-start delim-end throw match] 4 "\n\n(fn O)"] auto-overlays-in :all-overlays t (identity auto-overlay-match) eq set-id nil] 17 (#$ . 44878)]) (byte-code "\300\301!\210\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\207" [provide auto-overlays require auto-overlay-word auto-overlay-line auto-overlay-self auto-overlay-nested auto-overlay-flat] 2)