Current File : //usr/local/share/emacs/27.2/lisp/nxml/nxml-rap.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\202a eX\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\220 AA\211\262\204\n `\262\202\223 \204\n `\262\202\223 \203\223 :\204y `\262\202\223 AA\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\245 AA\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)
Mini Shell