;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-nxml.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.

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\317\320\321&\210\312\322\323\324\316\325\320\321&\207" [require easymenu xmltok nxml-util nxml-ns rng-match rng-util rng-valid nxml-mode rng-loc custom-declare-variable rng-nxml-auto-validate-flag t "Non-nil means automatically turn on validation with nxml-mode." :type boolean :group relax-ng rng-preferred-prefix-alist '(("http://www.w3.org/1999/XSL/Transform" . "xsl") ("http://www.w3.org/1999/02/22-rdf-syntax-ns#" . "rdf") ("http://www.w3.org/1999/xlink" . "xlink") ("http://www.w3.org/2001/XmlSchema" . "xsd") ("http://www.w3.org/2001/XMLSchema-instance" . "xsi") ("http://purl.org/dc/elements/1.1/" . "dc") ("http://purl.org/dc/terms/" . "dcterms")) "Alist of namespaces vs preferred prefixes." (repeat (cons :tag "With" (string :tag "this namespace URI") (string :tag "use this prefix")))] 8)
#@102 Non-nil means immediately after < complete on end-tag names.
Complete on start-tag names regardless.
(defvar rng-complete-end-tags-after-< t (#$ . 1510))
(defvar rng-nxml-easy-menu '("XML" ["Show Outline Only" nxml-hide-all-text-content] ["Show Everything" nxml-show-all] "---" ["Validation" rng-validate-mode :style toggle :selected rng-validate-mode] "---" ("Set Schema" ["Automatically" rng-auto-set-schema] ("For Document Type" :filter (lambda (menu) (mapcar (lambda (type-id) (vector type-id (list 'rng-set-document-type type-id))) (rng-possible-type-ids)))) ["Any Well-Formed XML" rng-set-vacuous-schema] ["File..." rng-set-schema-file]) ["Show Schema Location" rng-what-schema] ["Save Schema Location" rng-save-schema-location :help "Save the location of the schema currently being used for this buffer"] "---" ["First Error" rng-first-error :active rng-validate-mode] ["Next Error" rng-next-error :active rng-validate-mode] "---" ["Customize nXML" (customize-group 'nxml)]))
#@186 Initialize `nxml-mode' to take advantage of `rng-validate-mode'.
This is typically called from `nxml-mode-hook'.
Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil.
(defalias 'rng-nxml-mode-init #[nil "\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\322\323!\210\324\325\326	$\210\327\330\331\332#\210\n\203Q\305\333!\210\334\335\336\323\337$\210\334\340\341\323\337$\207\305\342!\210\343\335\336\337#\210\343\340\341\337#\207" [nxml-mode-map rng-nxml-easy-menu rng-nxml-auto-validate-flag define-key "" rng-validate-mode "" rng-what-schema "
" rng-auto-set-schema-and-validate "" rng-set-schema-file-and-validate "\f" rng-save-schema-location "" rng-set-document-type-and-validate "" rng-next-error (lambda (#1=#:def-tmp-var) (defvar rng-nxml-menu #1# #2="Menu for nxml-mode used with rng-validate-mode.")) nil easy-menu-do-define rng-nxml-menu #2# add-to-list mode-line-process (rng-validate-mode (:eval (rng-compute-mode-line-string))) append 1 add-hook nxml-completion-hook rng-complete t nxml-in-mixed-content-hook rng-in-mixed-content-p 0 remove-hook] 5 (#$ . 2500) nil])
(defvar rng-tag-history nil)
(defvar rng-attribute-name-history nil)
(defvar rng-attribute-value-history nil)
(defvar rng-complete-target-names nil)
(defvar rng-complete-name-attribute-flag nil)
(defvar rng-complete-extra-strings nil)
#@107 Complete the string before point using the current schema.
Return non-nil if in a context it understands.
(defalias 'rng-complete #[nil "\2050\212\303\304\305\306#)\305\211\205/\307\n!\nU\205/\310\n!\206/\311\n!\206/\312\n!\206/\313\n!*\207" [rng-validate-mode xmltok-dtd lt-pos search-backward "<" nil t rng-set-state-after rng-complete-tag rng-complete-end-tag rng-complete-attribute-name rng-complete-attribute-value] 5 (#$ . 3938) nil])
(defconst rng-in-start-tag-name-regex (byte-code "\301\302\303\304\211%\207" [xmltok-ncname-regexp replace-regexp-in-string "w" "<\\(?:w\\(?::w?\\)?\\)?\\=" t] 6))
(defalias 'rng-complete-tag #[(lt-pos) "\306	`SU\203P\n\203P\203P@\307=\204P\f\204'
\310\216\311 *\203P\312\211@@)\203E\211@@)\313\211@A)Q\202L\211@A)PB\212\314	\307#)\205\266\f\203b\315 \210\316 \306\317	T\320\321\306\322%*\306\211 \203\264\323 !\203\252\324 \307\325#\211\203\264\326!\203\264\327 \203\244@\203\264\204\264\330c\210\202\264 \235\203\264\331c\210*\307)\207" [rng-complete-extra-strings lt-pos rng-complete-end-tags-after-< rng-open-elements rng-collecting-text rng-match-state nil t ((byte-code "\302\207" [#1=#:state rng-match-state nil] 1)) rng-match-end-tag "/" ":" re-search-backward rng-flush-text rng-match-possible-start-tag-names rng-complete-before-point rng-complete-qname-function "Tag: " rng-tag-history rng-qname-p rng-expand-qname rng-start-tag-expand-recover rng-match-start-tag-open rng-match-start-tag-close " " ">" #1# x rng-in-start-tag-name-regex rng-complete-name-attribute-flag rng-complete-target-names name completion] 7])
(defconst rng-in-end-tag-name-regex (byte-code "\301\302\303\304\211%\207" [xmltok-ncname-regexp replace-regexp-in-string "w" "</\\(?:w\\(?::w?\\)?\\)?\\=" t] 6))
(defalias 'rng-complete-end-tag #[(lt-pos) "\212\306	\307#)\205\211\n\203\n@\307=\203\310\311!\210\312 \210\202\210\n\211@@)\2039\n\211@@)\313\n\211@A)Q\202?\n\211@A)\314\315\224\316\\`\"\fG
GV\204Z
\315\fGO\f\230\204j\310\317\320\321
\322Q!\"\210\312 \210\202\207`\fGZ`|\210
\322\261\210\204\207\323 \204\207\310\324\320
!\"\210*\307\207" [rng-in-end-tag-name-regex lt-pos rng-open-elements x end-tag-name start-tag-name re-search-backward t message "No matching start-tag" ding ":" buffer-substring-no-properties 0 2 "Expected end-tag %s" rng-quote-string "</" ">" rng-match-end-tag "Element %s is incomplete" rng-collecting-text] 7])
(defconst rng-in-attribute-regex (byte-code "\301\302\303\304\211%\207" [xmltok-ncname-regexp replace-regexp-in-string "w" "<w\\(?::w\\)?\\(?:[ 	
\n]+w\\(?::w\\)?[ 	
\n]*=[ 	
\n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*[ 	
\n]+\\(\\(?:w\\(?::w?\\)?\\)?\\)\\=" t] 6))
(defvar rng-undeclared-prefixes nil)
(defalias 'rng-complete-attribute-name #[(lt-pos) "\212\306	\307#)\2051\310\224\311\312	\"\203/\313 \314\315\n\"\307\316\317\320\311\321%+\203/\322c\210*\307\207" [rng-in-attribute-regex lt-pos rng-undeclared-prefixes attribute-start rng-complete-name-attribute-flag rng-complete-extra-strings re-search-backward t 1 nil rng-adjust-state-for-attribute rng-match-possible-attribute-names mapcar #[(prefix) "\203\301P\207\302\207" [prefix "xmlns:" "xmlns"] 2] rng-complete-before-point rng-complete-qname-function "Attribute: " rng-attribute-name-history "=\"" rng-complete-target-names] 6])
(defconst rng-in-attribute-value-regex (byte-code "\301\302\303\304\211%\207" [xmltok-ncname-regexp replace-regexp-in-string "w" "<w\\(?::w\\)?\\(?:[ 	
\n]+w\\(?::w\\)?[ 	
\n]*=[ 	
\n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*[ 	
\n]+\\(w\\(:w\\)?\\)[ 	
\n]*=[ 	
\n]*\\(\"[^\"]*\\|'[^']*\\)\\=" t] 6))
(defalias 'rng-complete-attribute-value #[(lt-pos) "\212\306	\307#)\205[\310\224\310\225\311\224\312\224T\313	
\"\203Y\314
\206%\f\"\315\230\203A\316\n\317\320\2058\314T\f\"!!\321\322\323%\202Q\324
\f#\210\316\n\317\325 !\326\322\327%\203Y\nSfc\210,\307\207" [rng-in-attribute-value-regex lt-pos value-start colon name-end name-start re-search-backward t 1 2 3 rng-adjust-state-for-attribute buffer-substring-no-properties "xmlns" rng-complete-before-point rng-strings-to-completion-alist rng-possible-namespace-uris "Namespace URI: " nil rng-namespace-uri-history rng-adjust-state-for-attribute-value rng-match-possible-value-strings "Value: " rng-attribute-value-history] 7])
(defalias 'rng-possible-namespace-uris #[(prefix) "\203\n\303!\202\f\304 \211\203\305 >\203\306	!C\202'\307\306\310\n\311 \"\")\207" [prefix ns nxml-xml-namespace-uri nxml-ns-get-prefix nxml-ns-get-default nxml-ns-changed-prefixes nxml-namespace-name mapcar delq rng-match-possible-namespace-uris] 6])
(defconst rng-qname-regexp (concat "\\`" xmltok-ncname-regexp "\\(?:" ":" xmltok-ncname-regexp "\\)" "?" "\\'"))
(defalias 'rng-qname-p #[(string) "\302	\"\205\303\207" [rng-qname-regexp string string-match t] 3])
(defalias 'rng-expand-qname #[(qname &optional defaultp recover-fun) "\305!\211@\211\203'\306!\211\203\nAB\202#\205#	A\")\2020\f\205-\307 AB)\207" [qname prefix ns recover-fun defaultp rng-split-qname nxml-ns-get-prefix nxml-ns-get-default] 4])
(defalias 'rng-start-tag-expand-recover #[(prefix local-name) "\302!\211\205	B)\207" [local-name ns rng-match-infer-start-tag-namespace] 3])
(defalias 'rng-split-qname #[(qname) "\301\302\"\203\303\211\224O\303\225\304OB\207\304B\207" [qname string-match ":" 0 nil] 4])
#@134 Return non-nil if point is in mixed content.
Return nil only if point is definitely not in mixed content.
If unsure, return non-nil.
(defalias 'rng-in-mixed-content-p #[nil "	=\203\302\207\303 \210\304 \207" [rng-current-schema rng-any-element t rng-set-state-after rng-match-mixed-text] 2 (#$ . 9372)])
#@202 Set the state for after parsing the first token with endpoint >= POS.
This does not change the xmltok state or point.  However, it does
set `xmltok-dtd'.  Returns the position of the end of the token.
(defalias 'rng-set-state-after #[(&optional pos) "\204`	W\203,\306\307!\210\310 \203(	W\203(\311 \210\312\313\314!\210)\202\306\315!\210\212\214~\210\316\317U\203>\320 \210\202n\321S\322\"\211\203R\323\f!\210b\210\202m\324\322\"\211\203i\323\321
S\322\"!\210
b\210\202l\320 \210))\312\211\211\211\211\211\211\211\211 !\"`\317U\203\225\325 \210\202\231#$`W\203\272f\326=\203\272`\212Tb\210\327\312w\210`)X\203\272\202\320`W\203\317\330\316%&\331!\210*`\202\320.\f\207" [pos rng-validate-up-to-date-end timer-idle-list inhibit-point-motion-hooks state start message "Parsing..." rng-do-some-validation force-mode-line-update nil sit-for 0 "Parsing...done" t 1 rng-set-initial-state get-text-property rng-state rng-restore-state previous-single-property-change xmltok-forward-prolog 60 " 	
\n" (nxml-ns-get-context) rng-forward xmltok-errors xmltok-dependent-regions xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end xmltok-name-colon xmltok-start xmltok-type rng-dtd xmltok-dtd rng-parsing-for-state rng-dt-namespace-context-getter] 10 (#$ . 9686)])
(defalias 'rng-adjust-state-for-attribute #[(lt-pos start) "\306\211\211\211\211\211\211\211\211\212b\210\307 \310>\205C`W\2034\311\n\"\311\"\312\313\314\315!\210\316 \210*\312.\n\207" [xmltok-errors xmltok-dependent-regions xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end nil xmltok-forward (start-tag partial-start-tag empty-element partial-empty-element) rng-prune-attribute-at t (nxml-ns-get-context) rng-process-start-tag stop rng-find-undeclared-prefixes xmltok-name-colon xmltok-start xmltok-type lt-pos start rng-dt-namespace-context-getter rng-parsing-for-state] 9])
(defalias 'rng-find-undeclared-prefixes #[nil "\306 	\n\307\310 \210
\2037
@\311!\211
\203/
\235\204/\312
!\204/
B)
A\211\204\f\211\211)\210\211\205^
@\313\311!\205S\314!\"
A\211\204F\307+\207" [rng-undeclared-prefixes xmltok-attributes nxml-ns-state att ns-state iter nxml-ns-changed-prefixes nil nxml-ns-pop-state xmltok-attribute-prefix nxml-ns-get-prefix delete xmltok-attribute-local-name prefix state xmltok-namespace-attributes] 4])
(defalias 'rng-prune-attribute-at #[(start atts) "\205$	@\211\304H)=\203\305	@\"\202\"	A\211\204)\207" [atts cur att start 0 delq] 4])
(defalias 'rng-adjust-state-for-attribute-value #[(name-start colon name-end) "\205\306	\"\306\203T\202	\"\n\205\307\n!\n\203'
\205,\310
\fB!+\207" [colon name-start prefix name-end local-name ns buffer-substring-no-properties nxml-ns-get-prefix rng-match-attribute-name] 3])
(defalias 'rng-complete-qname-function #[(string predicate flag) "\304\305\306!\"\n\204\307	#\202/\n\310=\203!\311	#\202/\n\312=\205/\313	\"\205/\310)\207" [string alist flag predicate mapcar #[(name) "\301B\207" [name nil] 2] rng-generate-qname-list try-completion t all-completions lambda assoc] 4])
(defalias 'rng-generate-qname-list #[(&optional string) "\205\306\307\"\205\310\224\310V\205\310\211\224O\311\312	\"\313\211\211\211\211\203O@\211\203C\314\"BB\315A\"\211\204/\211\203\232\f@\211@
A\204\223\203z\203\223\316!\204\223
C\241\210\202\223\317!\211\203\207
\nC\241\210\204\223
\313
AB\241\210\fA\211\204V\320\321\322\323\311\324	\"B\"\325\"!.\207" [string rng-complete-target-names prefer ns iter ns-prefixes string-match ":" 0 mapcar car nil nxml-ns-prefixes-for delq nxml-ns-get-prefix rng-get-preferred-unused-prefix rng-uniquify-equal sort apply append #[(name) "@\203\302\303\304@	\"A\"\207AC\207" [name ns-prefixes-alist mapcar #[(prefix) "\203\n\302	AQ\207	A\207" [prefix name ":"] 3] assoc] 5] string< ns-prefixes-alist namespaces forced-prefix rng-complete-name-attribute-flag rng-complete-extra-strings] 9])
(defalias 'rng-get-preferred-unused-prefix #[(ns) "\305\306!	\"\307\211\211\203>\fA\310\n!\203>\f	>\203>\305\"\211\203>\310\fA!\2038\f>\211\202\fA\202\n+\207" [ns rng-preferred-prefix-alist prefix iter ns-prefix assoc symbol-name nil nxml-ns-get-prefix] 4])
(defalias 'rng-strings-to-completion-alist #[(strings) "\301\302\303\304\301\305\"\306\"!\"\207" [strings mapcar #[(s) "\211B\207" [s] 2] rng-uniquify-equal sort rng-escape-string string<] 7])
(provide 'rng-nxml)