ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/nxml-rap.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\207" [require xmltok nxml-util] 2)
#@54 Integer giving position following end of the prolog.
(defvar nxml-prolog-end nil (#$ . 480))
(make-variable-buffer-local 'nxml-prolog-end)
#@788 Marker giving position up to which we have scanned.
nxml-scan-end must be >= nxml-prolog-end. Furthermore, nxml-scan-end
must not be an inside position in the following sense. A position is
inside if the following character is a part of, but not the first
character of, a CDATA section, comment or processing instruction.
Furthermore all positions >= nxml-prolog-end and < nxml-scan-end that
are inside positions must have a non-nil `nxml-inside' property whose
value is a symbol specifying what it is inside. Any characters with a
non-nil `fontified' property must have position < nxml-scan-end and
the correct face. Dependent regions must also be established for any
unclosed constructs starting before nxml-scan-end.
There must be no `nxml-inside' properties after nxml-scan-end.
(defvar nxml-scan-end nil (#$ . 626))
(make-variable-buffer-local 'nxml-scan-end)
(defalias 'nxml-get-inside #[(pos) "\301\302\"\207" [pos get-text-property nxml-inside] 3])
(put 'nxml-get-inside 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nxml-clear-inside #[(start end) "\302 \303#\207" [start end remove-text-properties (nxml-inside nil)] 4])
(put 'nxml-clear-inside 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nxml-set-inside #[(start end type) "\303 \304\n$\207" [start end type put-text-property nxml-inside] 5])
(put 'nxml-set-inside 'byte-optimizer 'byte-compile-inline-expand)
#@103 Return the end of the inside region containing POS.
Return nil if the character at POS is not inside.
(defalias 'nxml-inside-end #[(pos) "\301\302\")\205 \303\302\"\206 d\207" [pos get-text-property nxml-inside next-single-property-change] 3 (#$ . 2033)])
#@105 Return the start of the inside region containing POS.
Return nil if the character at POS is not inside.
(defalias 'nxml-inside-start #[(pos) "\301\302\")\205 \303T\302\"\206 e\207" [pos get-text-property nxml-inside previous-single-property-change] 3 (#$ . 2302)])
#@265 Restore `nxml-scan-end' invariants after a change.
The change happened between START and END.
Return position after which lexical state is unchanged.
END must be > `nxml-prolog-end'. START must be outside
any “inside” regions and at the beginning of a token.
(defalias 'nxml-scan-after-change #[(start end) " Y\203 \207\306\307\f ^!\203E
\310>\203; T \311\f\312#*\210T`
\313\f\314$+\210``\f ^W\204\f `\315\f!\211 \205R \316)\204\f \f \311\f\312#*\210*\f V\203m \f\306\223\210\f\207" [start nxml-scan-end xmltok-errors inside-remove-start end xmltok-type nil xmltok-forward-special (comment cdata-section processing-instruction) remove-text-properties (nxml-inside nil) put-text-property nxml-inside nxml-inside-end t xmltok-start type inside-end] 6 (#$ . 2580)])
(defalias 'nxml-scan-prolog #[nil "eb\210\306\211\307 `e \310
\f\311#*\210*\n W\205$ \n \306\223\207" [xmltok-errors xmltok-dtd nxml-prolog-regions nxml-prolog-end end start nil xmltok-forward-prolog remove-text-properties (nxml-inside nil) nxml-scan-end] 4])
#@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 #[nil "`\211 W\203 \304e d^\202c \305 \210\306\307\")\203+ \212\310 \210\311 \210`)\202c \212\312f\313=\204= \314\315e ]\316#\203C \310 \210\202V e X\203M \202T \317e!\206T eb\210\320 \203a `X\204V `))\207" [pos nxml-prolog-end xmltok-type xmltok-start prolog nxml-ensure-scan-up-to-date get-text-property nxml-inside nxml-move-outside-backwards xmltok-forward nil 60 search-backward "<" t nxml-inside-end nxml-tokenize-forward] 5 (#$ . 3654)])
#@111 Return the position after the token containing the char before point.
Sets variables like `nxml-token-after'.
(defalias 'nxml-token-before #[nil "e`U\204 \212`Sb\210\302 )\207`\303`\207" [xmltok-start xmltok-type nxml-token-after nil] 2 (#$ . 4464)])
(defalias 'nxml-tokenize-forward #[nil "\306\307 \203; ` V\203; \n\310>\2036 \311 \312\211 \312 \313\216T`\n \314\315$+\210- `\306\223\210\n)\207" [xmltok-errors nxml-scan-end xmltok-type #1=#:modified buffer-undo-list inhibit-read-only nil xmltok-forward (comment cdata-section processing-instruction) buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] put-text-property nxml-inside inhibit-modification-hooks xmltok-start type end start] 6])
#@249 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.
(defalias 'nxml-move-tag-backwards #[(bound) "\301 \210\302f\303\232?\205& \304\305\306#\203$ \301 \210\302f\303\232?\205& \304\305\306#\207b\207" [bound nxml-move-outside-backwards nil 60 search-backward "<" t] 4 (#$ . 5224)])
#@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 #[nil "\302`!\211\205! Sb\210`\303 \304\")\205! \305\306``\303 \304\")#)\207" [start pos nxml-inside-start get-text-property nxml-inside error "Char before inside-start at %s had nxml-inside property %s"] 7 (#$ . 5710)])
(defalias 'nxml-ensure-scan-up-to-date #[nil "` W\205K \212 b\210\306\307!\203F \310>\203> \311 \312\211 \312 \313\216T` \314\315$+\210-`W\204 ` \306\223*)\207" [pos nxml-scan-end xmltok-errors xmltok-type #1=#:modified buffer-undo-list nil xmltok-forward-special (comment processing-instruction cdata-section) buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] put-text-property nxml-inside inhibit-read-only inhibit-modification-hooks xmltok-start type end start] 6])
#@423 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.
(defalias 'nxml-scan-element-forward #[(from &optional up) "\205 \306\307\212 b\210\310 \204 \n:\203\245 \311\nA@\312\"\210\202\245 \f\313=\2030 \314
\nBB\202\f \f\315=\203d \n\203\245 \n:\204D `\202\245 \n@\316 \230\204W \311\317
\\\320\n@#\202\242 \nAA\211\204\f `\202\245 \f\321>\203s \n\204\f `\202\245 \f\322=\203\224 \n\203\245 \n:\204\207 `\202\245 \nAA\211\204\f `\202\245 \f\323=\203\241 \311
\324\"\202\242 \306\204\f ) *\207" [up found open-tags from 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 `>'"] 4 (#$ . 6637)])
#@483 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.
(defalias 'nxml-scan-element-backward #[(from &optional up bound) "\205 \306\307\211\212\fb\210`
W\204# \310\311\206 \312
]\306#\2047 :\203\301 \204\301 \313 A@\314\"\210\202\301 \315 \210\212\316 \210`)\317=\203S \320 BB\202 \321=\203\215 \203\301 :\204h \n\202\301 @\203\200 @\322 \230\204\200 \313T\323 @#\202\276 AA\211\204 \n\202\301 \324>\203\235 \204 \n\202\301 \325=\203\256 \307 BB\202 \326=\203\275 \313\327\"\202\276 \306\204 ) +\207" [up found token-end open-tags from nxml-prolog-end 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 `>'" bound xmltok-type xmltok-start] 4 (#$ . 7841)])
(defalias 'nxml-scan-error #[(&rest args) "\301\302\"\207" [args signal nxml-scan-error] 3])
(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)
Kontol Shell Bypass