ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/rng-dt.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'rng-util)
(defvar rng-dt-error-reporter nil)
(defalias 'rng-dt-error #[(string &rest objs) "\205\n \303 \nB\"\207" [rng-dt-error-reporter string objs apply] 4])
#@410 A list used by datatype libraries to expand names.
The car of the list is a symbol which is the name of a function.
This function is applied to the cdr of the list. The function must
return a list whose car is the default namespace and whose cdr is an
alist of (PREFIX . NAMESPACE) pairs, where PREFIX is a string and
NAMESPACE is a symbol. This must be dynamically bound before calling
a datatype library.
(defvar rng-dt-namespace-context-getter nil (#$ . 584))
(defalias 'rng-dt-make-value #[(dt str) "\302@ AB\"\207" [dt str apply] 4])
(put 'rng-dt-make-value 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-dt-builtin-compile #[(name params) "\302=\203 \204\f \303\207\304\305!\207\306=\203 \204 \307\207\304\310!\207\304\311\"\207" [name params string (t identity) rng-dt-error "The string datatype does not take any parameters" token (t rng-collapse-space) "The token datatype does not take any parameters" "There is no built-in datatype %s"] 3])
(byte-code "\300\301\302!\303\304#\210\305\306!\207" [put rng-make-datatypes-uri "" rng-dt-compile rng-dt-builtin-compile provide rng-dt] 4)
Kontol Shell Bypass