;ELC   
;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct  4 11:58:41 2004
;;; from file /home/jjc/elisp/rng-util.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rng-util.el' was compiled for Emacs 19.29 or later"))

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


(defalias 'rng-make-datatypes-uri #[(uri) "\301\230\203 \302\207\303!\207" [uri "" http://relaxng\.org/ns/structure/1\.0 intern] 2])
(byte-code "\301B\303\304!\302B\303\305!\301\207" [current-load-list rng-xsd-datatypes-uri rng-builtin-datatypes-uri rng-make-datatypes-uri "http://www.w3.org/2001/XMLSchema-datatypes" ""] 2)
#@75 Destructively remove any element from LIST that is eq to
its predecessor.
(defalias 'rng-uniquify-eq #[(list) "\205) \211A\203' 	@	\211A@)=\203  	\211\211AA)\241\210	A\211\202 )\207" [list head x] 3 (#$ . 949)])
#@78 Destructively remove any element from LIST that is equal to
its predecessor.
(defalias 'rng-uniquify-equal #[(list) "\205) \211A\203' 	@	\211A@)\232\203  	\211\211AA)\241\210	A\211\202 )\207" [list head x] 3 (#$ . 1175)])
(defalias 'rng-blank-p #[(str) "\301\302\"\207" [str string-match "\\`[ 	\n]*\\'"] 3])
#@87 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 \nAB\207@\306BA\211\203A @A	=\2037 \f\nB\241\210\306\202= \f\306B\241)\202 *\207" [list old new rest tail item nil] 4 (#$ . 1500)])
#@635 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 (#$ . 1808)])
(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)