;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require xmltok nxml-util sgml-mode] 2) #@54 Integer giving position following end of the prolog. (defvar nxml-prolog-end nil (#$ . 501)) (make-variable-buffer-local 'nxml-prolog-end) #@59 Return non-nil if inside comment, CDATA, or PI. (fn POS) (defalias 'nxml-get-inside #[257 "\212\300!)\3018\206\3028\303=\207" [syntax-ppss 4 3 t] 4 (#$ . 646)]) (put 'nxml-get-inside 'byte-optimizer 'byte-compile-inline-expand) #@113 Return the end of the inside region containing POS. Return nil if the character at POS is not inside. (fn POS) (defalias 'nxml-inside-end #[257 "\212\301!\3028\205>\3028b\210\303 p\304\305\306\307\310\"\311\"\312$\216\313!\210\3148\2033\315\316!\210`\202;\317`\316\"\206;d)\266\202\262)\207" [sgml-tag-syntax-table syntax-ppss 8 syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table 3 forward-comment 1 scan-sexps] 11 (#$ . 887)]) #@115 Return the start of the inside region containing POS. Return nil if the character at POS is not inside. (fn POS) (defalias 'nxml-inside-start #[257 "\212\300\301!8)\207" [8 syntax-ppss] 4 (#$ . 1396)]) (defalias 'nxml-scan-prolog #[0 "eb\210\304\211\305 `\211*\207" [xmltok-errors xmltok-dtd nxml-prolog-regions nxml-prolog-end nil xmltok-forward-prolog] 2]) #@322 Return the position after the token containing the char after point. Sets up the variables `xmltok-type', `xmltok-start', `xmltok-name-end', `xmltok-name-colon', `xmltok-attributes', `xmltok-namespace-attributes' in the same was as does `xmltok-forward'. The prolog will be treated as a single token with type `prolog'. (defalias 'nxml-token-after #[0 "`\211W\203\303ed^\202n\304 \210\211\212\305!)\3068\206%\3078\310=\266\202\2036\212\311 \210\312 \210`)\202n\212\313f\314=\204H\315\316e]\310#\203N\311 \210\202aeX\203X\202_\317e!\206_eb\210\320 \203l`X\204a`)\207" [nxml-prolog-end xmltok-type xmltok-start prolog nxml-ensure-scan-up-to-date syntax-ppss 4 3 t nxml-move-outside-backwards xmltok-forward nil 60 search-backward "<" nxml-inside-end nxml-tokenize-forward] 5 (#$ . 1768)]) #@111 Return the position after the token containing the char before point. Sets variables like `nxml-token-after'. (defalias 'nxml-token-before #[0 "e`U\204\212`Sb\210\302 )\207`\303`\207" [xmltok-start xmltok-type nxml-token-after nil] 2 (#$ . 2588)]) (defalias 'nxml-tokenize-forward #[0 "\302\303 \210 )\207" [xmltok-errors xmltok-type nil xmltok-forward] 1]) #@261 Move point backwards outside any “inside” regions or tags. Point will not move past `nxml-prolog-end'. Point will either be at BOUND or a `<' character starting a tag outside any “inside” regions. As a precondition, point must be >= BOUND. (fn BOUND) (defalias 'nxml-move-tag-backwards #[257 "\300 \210\301f\302\232?\205&\303\304\305#\203$\300 \210\301f\302\232?\205&\303\304\305#\207\211b\207" [nxml-move-outside-backwards nil 60 search-backward "<" t] 5 (#$ . 2958)]) #@122 Move point to first character of the containing special thing. Leave point unmoved if it is not inside anything special. (defalias 'nxml-move-outside-backwards #[0 "\300`!\211\205$\211b\210`\212\301!)\3028\206\3038\304=\266\202\205$\305\306`\"\207" [nxml-inside-start syntax-ppss 4 3 t error "Char before inside-start at %s is still \"inside\""] 5 (#$ . 3449)]) (defalias 'nxml-ensure-scan-up-to-date #[0 "\300`!\207" [syntax-propertize] 2]) #@447 Scan forward from FROM over a single balanced element. Point must be between tokens. Return the position of the end of the tag that ends the element. `xmltok-start' will contain the position of the start of the tag. If UP is non-nil, then scan past end-tag of element containing point. If no element is found, return nil. If a well-formedness error prevents scanning, signal an `nxml-scan-error'. Point is not moved. (fn FROM &optional UP) (defalias 'nxml-scan-element-forward #[513 "\211\205\302\303\212b\210\304 \204:\203\223\305A@\306\"\210\202\223\307\267\202\217\310 BB\262\202\n\203\223:\204>`\262\202\223@\311 \230\204Q\305\312 \\\313@#\202\220AA\211\262\204\n`\262\202\223\204\n`\262\202\223\203\223:\204y`\262\202\223AA\211\262\204\n`\262\202\223\305 \314\"\202\220\302\204\n)\207" [xmltok-type xmltok-start t nil nxml-tokenize-forward nxml-scan-error "Start-tag has no end-tag" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start-tag 36 end-tag 47 empty-element 96 partial-empty-element 96 partial-end-tag 106 partial-start-tag 136)) xmltok-start-tag-qname xmltok-end-tag-qname 2 "Mismatched end-tag; expected `%s'" "Missing `>'"] 8 (#$ . 3905)]) #@513 Scan backward from FROM over a single balanced element. Point must be between tokens. Return the position of the end of the tag that starts the element. `xmltok-start' will contain the position of the start of the tag. If UP is non-nil, then scan past start-tag of element containing point. If BOUND is non-nil, then don't scan back past BOUND. If no element is found, return nil. If a well-formedness error prevents scanning, signal an `nxml-scan-error'. Point is not moved. (fn FROM &optional UP BOUND) (defalias 'nxml-scan-element-backward #[769 "\205\303\304\211\212b\210`W\204\305\306\206\307]\303#\2042:\203\250\204\250\310A@\311\"\210\202\250\312 \210\212\313 \210`\262) \314=\203N\315 \nBB\262\202 \316\267\202\244\203\250:\204c\262\202\250@\203z@\317 \230\204z\310\nT\320@#\202\245AA\211\262\204 \262\202\250\204 \262\202\250\304\nBB\262\202 \310\n\321\"\202\245\303\204 )\207" [nxml-prolog-end xmltok-type xmltok-start t nil search-backward "<" 0 nxml-scan-error "End-tag has no start-tag" nxml-move-outside-backwards nxml-tokenize-forward end-tag xmltok-end-tag-qname #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start-tag 84 empty-element 137 partial-empty-element 137 partial-end-tag 147 partial-start-tag 157)) xmltok-start-tag-qname "Mismatched start-tag; expected `%s'" "Missing `>'"] 10 (#$ . 5162)]) #@19 (fn &rest ARGS) (defalias 'nxml-scan-error #[128 "\300\301\"\207" [signal nxml-scan-error] 4 (#$ . 6588)]) (byte-code "\300\301\302\303#\210\304\305!\207" [define-error nxml-scan-error "Scan over element that is not well-formed" nxml-error provide nxml-rap] 4)