HOME


sh-3ll 1.0
DIR:/proc/thread-self/root/usr/share/emacs/26.1/lisp/nxml/
Upload File :
Current File : //proc/thread-self/root/usr/share/emacs/26.1/lisp/nxml/rng-maint.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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!\207" [require xmltok nxml-mode texnfo-upd] 2)
(defvar rng-dir (file-name-directory load-file-name))
(defvar rng-manual-base "nxml-mode")
(defvar rng-manual-xml (concat rng-manual-base ".xml"))
(defvar rng-manual-texi (concat rng-manual-base ".texi"))
(defvar rng-manual-info (concat rng-manual-base ".info"))
#@37 Create manual.texi from manual.xml.
(defalias 'rng-format-manual #[0 "\306\307	\"!\306\307\n	\"!r\211q\210\310 \210\211\311\312\313\f\"!\210q\210eb\210\314\211\211\211\211\211\211\211\315 \210\316 \210.\311\317!\210)\211q\210\320 \210\321ed\322#\210\323 \210\324 )\207" [rng-manual-xml rng-dir rng-manual-texi standard-output rng-manual-info xmltok-errors find-file-noselect expand-file-name erase-buffer princ format "\\input texinfo @c -*- texinfo -*-\n@c %%**start of header\n@setfilename %s\n@settitle \n@c %%**end of header\n" nil xmltok-forward-prolog rng-process-tokens "\n@bye\n" rng-manual-fixup texinfo-insert-node-lines t texinfo-all-menus-update save-buffer xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end xmltok-name-colon xmltok-start xmltok-type] 10 (#$ . 765) nil])
(defalias 'rng-manual-fixup #[0 "eb\210\301\302!\210`\301\303!\210\304`S\"eb\210\301\305!\210\211c\210\301\306!\210\307\224b\210\310\311\312\313\261\262\207" [rng-manual-info search-forward "@top " "\n" buffer-substring-no-properties "@settitle " "@node" 0 "@dircategory Emacs\n" "@direntry\n* " ": (" ").\n@end direntry\n\n"] 8])
(defvar rng-manual-inline-elements '(kbd key samp code var emph uref point))
(defalias 'rng-process-tokens #[0 "\304\305C\305\211\211\211\211\211\211\306 \205\361\307>\203g\310>\262\311>\262\312\203)\313 \202+\314 !\262\305\262\305\262	>\203h\203]\203R\315 \210\316=\203O\317\320!\210\305\262\321\262\317\322\323\"!\210\203Q\317\324!\210\202Q\325=\203\215\203|\315 \210\305\262\317\326!\210\203Q\327 \210\316\262\317\330!\210\202Q\331=\203\244\327 \210\262\203Q\317\332!\210\202Q\333>\203\327\203\302\321\262\315 \210\305\262\321\262\317\322\334\"!\210\203Q\327 \210\316\262\317\322\335\"!\210\202Q\336=\203\370\327 \210\203\356\203\353\321\262\337\262\203Q\321\262\202Q\340=\2039\203'\315 \210\304=\203\317\341!\210\317\342!\210\317	\3438!\210\317\344!\210\305\262T\262	\203Q\327 \210\305\262S\262	\202Q\345=\203Q\203F\337\262\203Q\321\262\317\346!\210\203[\211B\262\203\nA\262\202\n\347>\203\n\305\262\350>\203\351\n`\"\262\202\237\352>\203\217\203\217\262\202\237\353=\203\237\351\n\354\\`\355Z\"\262\203\n@\203\n\356\357\360\321$\262\203\276\356\361\362\321$\262\305\262\316=\203\317\356\363\362\321$\262G\304V\203\n\203\352\315 \210\316=\203\347\317\320!\210\305\262\317!\210\202\n\207" [xmltok-type rng-manual-inline-elements xmltok-start xmltok-replacement 0 nil xmltok-forward (start-tag empty-element end-tag) (start-tag empty-element) (end-tag empty-element) intern xmltok-start-tag-qname xmltok-end-tag-qname rng-manual-output-force-blank-line noindent princ "@noindent\n" t format "@%s{" "}" ulist "@itemize @bullet\n" rng-manual-output-force-new-line "@end itemize\n" item "@item\n" (example display) "@%s\n" "@end %s\n" para fill section "@node Top\n" "@" (top chapter section subsection subsubsection) " " title "\n" (data space char-ref entity-ref cdata-section) (data space) buffer-substring-no-properties (char-ref entity-ref) cdata-section 9 3 replace-regexp-in-string "[@{}]" "@\\&" "\\`\n" "" "\\`\n*"] 14])
(defalias 'rng-manual-output-force-new-line #[0 "rq\210`Sf\301=?\205\301c)\207" [standard-output 10] 2])
(defalias 'rng-manual-output-force-blank-line #[0 "rq\210`Sf\301=\203`S\206`Sf\301=?\205!\301c\202!\302c)\207" [standard-output 10 "\n\n"] 2])
#@28 

(fn FUNCTION &rest ARGS)
(defalias 'rng-time-function #[385 "\300 \301\"\300 \302\303\304\305\"!#\210\207" [current-time apply message "%s ran in %g seconds" float-time time-subtract] 12 (#$ . 4280)])
(defalias 'rng-time-tokenize-buffer #[0 "\300\301!\207" [rng-time-function rng-tokenize-buffer] 2 nil nil])
(defalias 'rng-tokenize-buffer #[0 "\212eb\210\306\211\211\211\211\211\211\211	\n\307 \210\310 \205!\202.	\207" [xmltok-errors xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end xmltok-name-colon nil xmltok-forward-prolog xmltok-forward xmltok-start xmltok-type] 8])
(defalias 'rng-time-validate-buffer #[0 "\300\301!\207" [rng-time-function rng-validate-buffer] 2 nil nil])
(defalias 'rng-validate-buffer #[0 "\214~\210\305 \306\211\306\307\310\311\312\313!\314\"\315$\216\316ed\"\210,\210\317edT\"\210)\320\321 \210\310\322\323!\2055\202,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks rng-validate-up-to-date-end rng-error-count buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 rng-clear-cached-state rng-clear-overlays 1 rng-clear-conditional-region rng-do-some-validation #[0 "\300\207" [t] 1]] 8])