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-util.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@57 Enable nxml debugging.  Effective only at compile time.
(defconst nxml-debug nil (#$ . 408))
#@26

(fn FORMAT &rest ARGS)
(defalias 'nxml-debug #[385 "\205	�\301\302#\207" [nxml-debug apply message] 6 (#$ . 507)])
(put 'nxml-debug 'byte-optimizer 'byte-compile-inline-expand)
#@23

(fn NAME START END)
(defalias 'nxml-debug-change '(macro . #[771 "\205\f�\300\301\302EF\207" [nxml-debug "%s: %S" buffer-substring-no-properties] 9 (#$ . 695)]))
#@187 Return a symbol for the namespace URI STR.
STR must be a string.  If STR is the empty string, return nil.
Otherwise, return the symbol whose name is STR prefixed with a colon.

(fn STR)
(defalias 'nxml-make-namespace #[257 "\211\300\230?\205\f�\301\302P!\207" ["" intern ":"] 4 (#$ . 870)])
#@113 Return the namespace URI corresponding to the symbol NS.
This is the inverse of `nxml-make-namespace'.

(fn NS)
(defalias 'nxml-namespace-name #[257 "\211\205\n�\300\301!\302\"\207" [substring symbol-name 1] 4 (#$ . 1169)])
(defconst nxml-xml-namespace-uri (nxml-make-namespace "http://www.w3.org/XML/1998/namespace"))
(defconst nxml-xmlns-namespace-uri (nxml-make-namespace "http://www.w3.org/2000/xmlns/"))
#@27

(fn CONTEXT &rest BODY)
(defalias 'nxml-with-degradation-on-error '(macro . #[385 "\204�\301\302!\303\304B\305\306EDF\207\304B\207" [nxml-debug make-symbol "err" condition-case progn error nxml-degrade] 10 (#$ . 1585)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-with-degradation-on-error lisp-indent-function 1 put edebug-form-spec t] 5)
#@72 Evaluate body without calling any point motion hooks.

(fn &rest BODY)
(defalias 'nxml-with-invisible-motion '(macro . #[128 "\300\301BB\207" [let ((inhibit-point-motion-hooks t))] 4 (#$ . 1970)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-with-invisible-motion lisp-indent-function 0 put edebug-form-spec t] 5)
#@12

(fn ERR)
(defalias 'nxml-display-file-parse-error #[257 "\211A@\300!\3018\3028\303!\210\304 \203�\305\202�b\210\306\307\"\207" [find-file-noselect 2 3 pop-to-buffer buffer-modified-p 1 error "%s"] 8 (#$ . 2318)])
#@48

(fn FILE POS MESSAGE &optional ERROR-SYMBOL)
(defalias 'nxml-signal-file-parse-error #[1027 "\300\206�\301E\"\207" [signal nxml-file-parse-error] 9 (#$ . 2547)])
(byte-code "\300\301\302\"\210\300\303\304\301#\210\305\306!\207" [define-error nxml-error nil nxml-file-parse-error "Error parsing file" provide nxml-util] 4)

${this.title}

Code Editor : nxml-util.elc