HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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)
#@12 

(fn POS)
(defalias 'nxml-get-inside #[257 "\212\300\301!8)\207" [8 syntax-ppss] 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 (#$ . 818)])
#@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 (#$ . 1327)])
(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^\202e\304 \210\211\212\305\306!8)\262
\203-\212\307 \210\310 \210`)\202e\212\311f\312=\204?\313\314e]\315#\203E\307 \210\202XeX\203O\202V\316e!\206Veb\210\317 \203c`
X\204X`)\207" [nxml-prolog-end xmltok-type xmltok-start prolog nxml-ensure-scan-up-to-date 8 syntax-ppss nxml-move-outside-backwards xmltok-forward nil 60 search-backward "<" t nxml-inside-end nxml-tokenize-forward] 5 (#$ . 1699)])
#@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 (#$ . 2496)])
(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 (#$ . 2866)])
#@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)\262
\205\303\304`\"\207" [nxml-inside-start 8 syntax-ppss error "Char before inside-start at %s is still \"inside\""] 5 (#$ . 3357)])
(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\253\305A@\306\"\210\202\253\307=\203/\310 	BB\262\202\n\311=\203f
\203\253
:\204D`\262
\202\253
@\312 \230\204W\305\313	\\\314@#\202\250
AA\211\262\204\n`\262
\202\253\315>\203v
\204\n`\262
\202\253\316=\203\232
\203\253
:\204\213`\262
\202\253
AA\211\262\204\n`\262
\202\253\317=\203\247\305	\320\"\202\250\302\204\n)\207" [xmltok-type xmltok-start t nil nxml-tokenize-forward nxml-scan-error "Start-tag has no end-tag" start-tag xmltok-start-tag-qname end-tag xmltok-end-tag-qname 2 "Mismatched end-tag; expected `%s'" (empty-element partial-empty-element) partial-end-tag partial-start-tag "Missing `>'"] 8 (#$ . 3788)])
#@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\272\204\272\310A@\311\"\210\202\272\312 \210\212\313 \210`\262)	\314=\203N\315 \nBB\262\202	\316=\203\211\203\272:\204c
\262
\202\272@\203z@\317 \230\204z\310\nT\320@#\202\267AA\211\262\204
\262
\202\272	\321>\203\231\204
\262
\202\272	\322=\203\251\304\nBB\262\202	\323=\203\266\310\n\324\"\202\267\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 start-tag xmltok-start-tag-qname "Mismatched start-tag; expected `%s'" (empty-element partial-empty-element) partial-end-tag partial-start-tag "Missing `>'"] 10 (#$ . 4990)])
#@19 

(fn &rest ARGS)
(defalias 'nxml-scan-error #[128 "\300\301\"\207" [signal nxml-scan-error] 4 (#$ . 6353)])
(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)