;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/rng-util.el
;;; in Emacs version 24.3.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.

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


(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'	@	\211A@)=\203 	\211\211AA)\241\210	A\211\202)\207" [list head x] 3 (#$ . 860)])
#@52 Destructively remove `equal' duplicates from LIST.
(defalias 'rng-uniquify-equal #[(list) "\205)\211A\203'	@	\211A@)\232\203 	\211\211AA)\241\210	A\211\202)\207" [list head x] 3 (#$ . 1060)])
(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 (#$ . 1359)])
#@636 Complete text between START and point.
Replaces the text between START and point with a string chosen using a
completion table and, when needed, input read from the user with the
minibuffer.
Returns the new string if either a complete and unique completion was
determined automatically or input was read from the user.  Otherwise,
returns nil.
TABLE is an alist, a symbol bound to a function or an obarray as with
the function `completing-read'.
PROMPT is the string to prompt with if user input is needed.
PREDICATE is nil or a function as with `completing-read'.
HIST, if non-nil, specifies a history list as with `completing-read'.
(defalias 'rng-complete-before-point #[(start table prompt &optional predicate hist) "\306`\"\307	\n#\211\204*	\310\230\203\311\312!\210\202#\311\313\314	!\"\210\315 \210\316\202\210\f\317=\2034	\202\210\f	\230\204g`|\210\fc\210\320\f\n#\204Q\311\321!\210\316\202\210\307\f\n#\317=\203_\f\202\210\311\322!\210\316\202\210\323\324!\325\324\326\317#\210\327\216\330\n\316	&*`|\210\fc\210\f*\207" [start orig table predicate completion saved-minibuffer-setup-hook buffer-substring-no-properties try-completion "" message "No completions available" "No completion for %s" rng-quote-string ding nil t rng-completion-exact-p "Incomplete" "Complete but not unique" default-value minibuffer-setup-hook add-hook minibuffer-completion-help ((byte-code "\301\302\"\207" [saved-minibuffer-setup-hook set-default minibuffer-setup-hook] 3)) completing-read prompt hist] 8 (#$ . 1669)])
(defalias 'rng-completion-exact-p #[(string table predicate) "9\203	\n\303#\207\304!\203\305	\"\207\306	\"\207" [table string predicate lambda vectorp intern-soft assoc] 4])
(defalias 'rng-quote-string #[(s) "\301\301Q\207" [s "\""] 3])
(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\310O\305\311\"\203 \312\313O\207" [string replace-regexp-in-string "[ 	
\n]+" " " t string-match "\\` " 1 nil " \\'" 0 -1] 6])
(provide 'rng-util)