Current File : //usr/local/share/emacs/27.2/lisp/nxml/nxml-ns.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 430))
#@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) (#$ . 1012))
(defalias 'nxml-ns-state #[0 "\207" [nxml-ns-state] 1])
(put 'nxml-ns-state 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn STATE)
(defalias 'nxml-ns-set-state #[257 "\211\211\207" [nxml-ns-state] 3 (#$ . 1454)])
(put 'nxml-ns-set-state 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn STATE)
(defalias 'nxml-ns-state-equal #[257 "\232\207" [nxml-ns-state] 3 (#$ . 1625)])
(put 'nxml-ns-state-equal 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn &rest BODY)
(defalias 'nxml-ns-save '(macro . #[128 "\300\301BB\207" [let ((nxml-ns-state nxml-ns-initial-state))] 4 (#$ . 1797)]))
(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 (#$ . 2155)])
#@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 (#$ . 2347)])
#@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 (#$ . 2527)])
#@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 (#$ . 2768)])
#@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 (#$ . 3050)])
#@139 Changes 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 (#$ . 3229)])
(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\262A\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 (#$ . 3529)])
#@11
(fn NS)
(defalias 'nxml-ns-prefix-for #[257 "\301@A\"@\207" [nxml-ns-state rassq] 4 (#$ . 3824)])
(defalias 'nxml-ns-changed-prefixes #[0 "A@@\301=\2043 @@=\204 \302\262A\262A\262=\2043 @@B\262A\262\202 \207" [nxml-ns-state nil (nil)] 5])
(provide 'nxml-ns)
Mini Shell