Current File : //proc/self/root/kunden/usr/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
!)\301
8\206\302
8\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
!\302
8\205>\302
8b\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
!)\306
8\206%\307
8\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
!)\302
8\206\303
8\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\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)