;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'nxml-util)
#@538 Contains the state of namespace processing.
The state is never modified destructively and so can be saved and
restored without copying.

The value is a stack represented by a list.  The list has length
N + 1 where N is the number of open elements.  Each member of the
list represents the bindings in effect for a particular element.
Each member is itself a list whose car is the default namespace
(a symbol or nil) and whose cdr is an alist of (PREFIX . NS) pairs
where PREFIX is a string (never nil) and NS is the namespace URI
symbol.
(defvar nxml-ns-state nil (#$ . 106))
#@202 A list to be used as the initial value of `nxml-ns-state'.
This represents the state with no open elements and with the default
namespace bindings (no default namespace and only the xml prefix bound).
(defconst nxml-ns-initial-state (byte-code "\301\302BDC\207" [nxml-xml-namespace-uri nil "xml"] 3) (#$ . 688))
(defalias 'nxml-ns-state #[0 "\207" [nxml-ns-state] 1])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-ns-state speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn STATE)
(defalias 'nxml-ns-set-state #[257 "\211\211\207" [nxml-ns-state] 3 (#$ . 1203)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-ns-set-state speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn STATE)
(defalias 'nxml-ns-state-equal #[257 "
\232\207" [nxml-ns-state] 3 (#$ . 1448)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-ns-state-equal speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@19 

(fn &rest BODY)
(defalias 'nxml-ns-save '(macro . #[128 "\300\301BB\207" [let ((nxml-ns-state nxml-ns-initial-state))] 4 (#$ . 1694)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-ns-save lisp-indent-function 0 put edebug-form-spec t] 5)
(defalias 'nxml-ns-init #[0 "\211\207" [nxml-ns-initial-state nxml-ns-state] 2])
#@105 Change the state by starting a new element.
Namespace declarations are inherited from the parent state.
(defalias 'nxml-ns-push-state #[0 "@B\211\207" [nxml-ns-state] 2 (#$ . 2052)])
#@95 Change the state by ending an element.
The behavior is undefined if there is no open element.
(defalias 'nxml-ns-pop-state #[0 "A\211\207" [nxml-ns-state] 2 (#$ . 2244)])
#@128 Return the symbol for namespace bound to PREFIX.
Return nil if PREFIX is unbound.  PREFIX is a string, never nil.

(fn PREFIX)
(defalias 'nxml-ns-get-prefix #[257 "\301
@A\"\211\205\f\211A\207" [nxml-ns-state assoc] 4 (#$ . 2424)])
#@175 Change the binding of PREFIX.
PREFIX is a string (never nil).  NS is a symbol (never nil).
The change will be in effect until the end of the current element.

(fn PREFIX NS)
(defalias 'nxml-ns-set-prefix #[514 "@\211@BABBAB\262
\211\207" [nxml-ns-state] 6 (#$ . 2665)])
#@96 Return the current default namespace as a symbol.
Return nil if there is no default namespace.
(defalias 'nxml-ns-get-default #[0 "@@\207" [nxml-ns-state] 1 (#$ . 2947)])
#@138 Change the current default namespace.
The change will be in effect until the end of the current element.
NS is a symbol or nil.

(fn NS)
(defalias 'nxml-ns-set-default #[257 "\211@ABAB\211\207" [nxml-ns-state] 3 (#$ . 3126)])
(defalias 'nxml-ns-get-context #[0 "@\207" [nxml-ns-state] 1])
#@32 

(fn NS &optional ATTRIBUTEP)
(defalias 'nxml-ns-prefixes-for #[513 "@\301\203\f?\202
@=\203\302\262

A\262\303\"\211\205@\211@\304
!=\2038\211\235\2048\211B\262\210\211\235A\211\262\262
\204\207" [nxml-ns-state nil (nil) rassq nxml-ns-get-prefix] 8 (#$ . 3425)])
#@11 

(fn NS)
(defalias 'nxml-ns-prefix-for #[257 "\301
@A\"@\207" [nxml-ns-state rassq] 4 (#$ . 3720)])
(defalias 'nxml-ns-changed-prefixes #[0 "A@@\301=\2043
@@=\204\302\262

A\262A\262
=\2043
@@
B\262

A\262\202\207" [nxml-ns-state nil (nil)] 5])
(provide 'nxml-ns)