| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/nxml/nxml-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)