| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/nxml/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
#@12
(fn URI)
(defalias 'rng-make-datatypes-uri #[257 "\211\300\230\203 \301\207\302!\207" ["" http://relaxng\.org/ns/structure/1\.0 intern] 3 (#$ . 84)])
(defconst rng-xsd-datatypes-uri (rng-make-datatypes-uri "http://www.w3.org/2001/XMLSchema-datatypes"))
(defconst rng-builtin-datatypes-uri (rng-make-datatypes-uri ""))
#@12
(fn STR)
(defalias 'rng-blank-p #[257 "\300\301\"\207" [string-match "\\`[ \n
]*\\'"] 4 (#$ . 412)])
#@108 Replace first member of LIST (if any) that is `eq' to OLD by NEW.
LIST is not modified.
(fn NEW OLD LIST)
(defalias 'rng-substq #[771 "\211\204 \300\207\211@=\203 AB\207\211@CA\262\211\203@ \211@A\262\211=\2036 B\241\266\300\202 C\241\262\210\202 \266\207" [nil] 9 (#$ . 524)])
#@10
(fn S)
(defalias 'rng-escape-string #[257 "\300\301\302\303$\207" [replace-regexp-in-string "[&\"<>]" #[257 "\300\301\"A\207" [assoc (("&" . "&") ("\"" . """) (">" . ">") ("<" . "<"))] 4 "\n\n(fn MATCH)"] t] 6 (#$ . 831)])
#@15
(fn STRING)
(defalias 'rng-collapse-space #[257 "\300\301\302\303\211%\262\304\305\"\203 \211\306\307O\262\304\310\"\203# \211\311\312O\262\207" [replace-regexp-in-string "[
\n]+" " " t string-match "\\` " 1 nil " \\'" 0 -1] 7 (#$ . 1079)])
(define-error 'rng-error nil)
#@13
(fn LIST)
(defalias 'rng-uniquify-eq #[257 "\300\301\"\207" [seq-uniq eq] 4 (#$ . 1367)])
(byte-code "\300\301\302\303#\210\304\305\302\306#\210\300\305\302\303#\210\307\310!\207" [make-obsolete rng-uniquify-eq seq-uniq "28.1" defalias rng-uniquify-equal nil provide rng-util] 4)