;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/nxml-util.el
;;; in Emacs version 24.3.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 (#$ . 557))
(defalias 'nxml-debug #[(format &rest args) "\205	\303\304	\n#\207" [nxml-debug format args apply message] 4])
(put 'nxml-debug 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nxml-debug-change '(macro . #[(name start end) "\205\f\300\304	\305\nEF\207" [nxml-debug name start end "%s: %S" buffer-substring-no-properties] 6]))
(defalias 'nxml-debug-set-inside '(macro . #[(start end) "\205\303\304\305	\nEDC\306\307\310\311	\nF\257\207" [nxml-debug start end let overlay make-overlay (overlay-put overlay 'face '(:background "red")) (overlay-put overlay 'nxml-inside-debug t) nxml-debug-change "nxml-set-inside"] 8]))
(defalias 'nxml-debug-clear-inside '(macro . #[(start end) "\205\303\304\305\306\307	\nE\310\311\312\313\314\315\316	\nF\257\207" [nxml-debug start end loop for overlay in overlays-in if (overlay-get overlay 'nxml-inside-debug) do (delete-overlay overlay) finally nxml-debug-change "nxml-clear-inside"] 14]))
#@177 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.
(defalias 'nxml-make-namespace #[(str) "\301\230?\205\f\302\303P!\207" [str "" intern ":"] 3 (#$ . 1604)])
#@104 Return the namespace URI corresponding to the symbol NS.
This is the inverse of `nxml-make-namespace'.
(defalias 'nxml-namespace-name #[(ns) "\205\n\301!\302\303O\207" [ns symbol-name 1 nil] 3 (#$ . 1897)])
(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/"))
(defalias 'nxml-with-degradation-on-error '(macro . #[(context &rest body) "\204\304\305!\306	\307\nB\310\311	EDF)\207\307\nB\207" [nxml-debug error-symbol body context make-symbol "err" condition-case progn error nxml-degrade] 7]))
#@179 Evaluate BODY without any text property changes modifying the buffer.
Any text properties changes happen as usual but the changes are not treated as
modifications to the buffer.
(defalias 'nxml-with-unmodifying-text-property-changes '(macro . #[(&rest body) "\302\303!\304\305B\306B\307\310	B\311\312BBEE)\207" [modified body make-symbol "modified" let ((buffer-modified-p)) ((inhibit-read-only t) (inhibit-modification-hooks t) (buffer-undo-list t) (deactivate-mark nil) (buffer-file-name nil) (buffer-file-truename nil)) unwind-protect progn unless ((restore-buffer-modified-p nil))] 7 (#$ . 2537)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nxml-with-unmodifying-text-property-changes lisp-indent-function 0 edebug-form-spec t] 4)
#@55 Evaluate body without calling any point motion hooks.
(defalias 'nxml-with-invisible-motion '(macro . #[(&rest body) "\301\302BB\207" [body let ((inhibit-point-motion-hooks t))] 3 (#$ . 3300)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nxml-with-invisible-motion lisp-indent-function 0 edebug-form-spec t] 4)
(defalias 'nxml-display-file-parse-error #[(err) "A@\305	!\3068\3078\310\n!\210\311 \203\312\202b\210\313\314\f\",\207" [err filename buffer pos message find-file-noselect 2 3 pop-to-buffer buffer-modified-p 1 error "%s"] 3])
(defalias 'nxml-signal-file-parse-error #[(file pos message &optional error-symbol) "\304\206\305	\nE\"\207" [error-symbol file pos message signal nxml-file-parse-error] 5])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\307\310!\207" [put nxml-file-parse-error error-conditions (error nxml-file-parse-error) nxml-parse-file-error error-message "Error parsing file" provide nxml-util] 4)