%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/nxml/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/nxml/rng-util.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'rng-make-datatypes-uri #[(uri) "\301\230\203\302\207\303!\207" [uri "" http://relaxng\.org/ns/structure/1\.0 intern] 2])
(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 ""))
#@49 Destructively remove `eq' duplicates from LIST.
(defalias 'rng-uniquify-eq #[(list) "\205#\211A\203!	@	A@=\203	\211AA\241\210	A\211\202)\207" [list head] 3 (#$ . 712)])
#@52 Destructively remove `equal' duplicates from LIST.
(defalias 'rng-uniquify-equal #[(list) "\205#\211A\203!	@	A@\232\203	\211AA\241\210	A\211\202)\207" [list head] 3 (#$ . 898)])
(defalias 'rng-blank-p #[(str) "\301\302\"\207" [str string-match "\\`[ 	\n
]*\\'"] 3])
#@89 Replace first member of LIST (if any) that is `eq' to OLD by NEW.
LIST is not modified.
(defalias 'rng-substq #[(new old list) "\204\306\207@	=\203\nAB\207@\306BA\211\203A@A
	=\2037\f\nB\241\210\306\202=\f
\306B\241)\202*\207" [list old new rest tail item nil] 4 (#$ . 1182)])
(defalias 'rng-escape-string #[(s) "\301\302\303\304$\207" [s replace-regexp-in-string "[&\"<>]" #[(match) "\301\302\"A\207" [match assoc (("&" . "&amp;") ("\"" . "&quot;") (">" . "&gt;") ("<" . "&lt;"))] 3] t] 5])
(defalias 'rng-collapse-space #[(string) "\301\302\303\304\211%\305\306\"\203\307\310\"\305\311\"\203!\307\312\313#\207" [string replace-regexp-in-string "[ 	
\n]+" " " t string-match "\\` " substring 1 " \\'" 0 -1] 6])
(byte-code "\300\301\302\"\210\303\304!\207" [define-error rng-error nil provide rng-util] 3)

Zerion Mini Shell 1.0