WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/nxml
Viewing File: /usr/share/emacs/24.3/lisp/nxml/nxml-util.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:30 2025
;;; 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\nEF\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\303P!\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\302BB\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	!\3068\3078\310\n!\210\311 \203\312\202b\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	\nE\"\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)
F1l3 Manager
