ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/rng-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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! @ A@=\203 \211AA\241\210 A\211\202 )\207" [list head] 3 (#$ . 714)])
#@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 (#$ . 900)])
(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\n B\241\210\306\202= \f
\306B\241)\202 *\207" [list old new rest tail item nil] 4 (#$ . 1184)])
#@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 #[nil "\301\302\"\207" [saved-minibuffer-setup-hook set-default minibuffer-setup-hook] 3] completing-read prompt hist] 8 (#$ . 1494)])
(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 (("&" . "&") ("\"" . """) (">" . ">") ("<" . "<"))] 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])
(byte-code "\300\301\302\"\210\303\304!\207" [define-error rng-error nil provide rng-util] 3)
Kontol Shell Bypass