;ELC ;;; Compiled by nelson@oikos.local on Sat Jul 23 20:32:09 2005 ;;; from file /Users/nelson/Desktop/nxml-mode-20041004/rng-util.el ;;; in Emacs version 22.0.50.6 ;;; 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 "\301B\302\303\304!!\210\305B\306\303\307!!\207" [current-load-list rng-xsd-datatypes-uri (lambda (#1=#:defconst-tmp-var) (defconst rng-xsd-datatypes-uri #1#)) rng-make-datatypes-uri "http://www.w3.org/2001/XMLSchema-datatypes" rng-builtin-datatypes-uri (lambda (#2=#:defconst-tmp-var) (defconst rng-builtin-datatypes-uri #2#)) ""] 3) #@75 Destructively remove any element from LIST that is eq to its predecessor. (defalias 'rng-uniquify-eq #[(list) "\205)\211A\203' @ \211A@)=\203 \211\211AA)\241\210 A\211\202)\207" [list head x] 3 (#$ . 1076)]) #@78 Destructively remove any element from LIST that is equal to its predecessor. (defalias 'rng-uniquify-equal #[(list) "\205)\211A\203' @ \211A@)\232\203 \211\211AA)\241\210 A\211\202)\207" [list head x] 3 (#$ . 1303)]) (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\nAB\207@\306BA\211 \203A @ A =\2037\f\n B\241\210\306\202=\f \306B\241)\202*\207" [list old new rest tail item nil] 4 (#$ . 1628)]) #@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 (#$ . 1936)]) (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\302Q\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 (("&" . "&") ("\"" . """) (">" . ">") ("<" . "<"))] 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)