Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
nxml-enc.elc	3.29 KB	-rw-r--r--
nxml-maint.elc	1.15 KB	-rw-r--r--
nxml-mode.elc	63.75 KB	-rw-r--r--
nxml-ns.elc	4.01 KB	-rw-r--r--
nxml-outln.elc	26.76 KB	-rw-r--r--
nxml-parse.elc	8.73 KB	-rw-r--r--
nxml-rap.elc	6.69 KB	-rw-r--r--
nxml-util.elc	2.81 KB	-rw-r--r--
rng-cmpct.elc	25.08 KB	-rw-r--r--
rng-dt.elc	1.8 KB	-rw-r--r--
rng-loc.elc	13.94 KB	-rw-r--r--
rng-maint.elc	5.67 KB	-rw-r--r--
rng-match.elc	52.05 KB	-rw-r--r--
rng-nxml.elc	13.75 KB	-rw-r--r--
rng-parse.elc	2.57 KB	-rw-r--r--
rng-pttrn.elc	3.81 KB	-rw-r--r--
rng-uri.elc	7.82 KB	-rw-r--r--
rng-util.elc	1.98 KB	-rw-r--r--
rng-valid.elc	35.2 KB	-rw-r--r--
rng-xsd.elc	22.54 KB	-rw-r--r--
xmltok.elc	35.6 KB	-rw-r--r--
xsd-regexp.elc	40.45 KB	-rw-r--r--

Code Editor : nxml-rap.elc

;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\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)

${this.title}

Code Editor : nxml-rap.elc