ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/rng-maint.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 #[nil "\306\307 \"!\306\307\n \"! r q\210\310 \210 \311\312\313\"!\210\fq\210eb\210\314\211\211\211\211\211\211\211 \315 \210\316 \210.\311\317!\210) q\210\320 \210\321ed\322#\210\323 \210\324 +\207" [rng-manual-xml rng-dir rng-manual-texi texi-buf xml-buf standard-output 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 rng-manual-info xmltok-errors xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end xmltok-name-colon xmltok-start xmltok-type] 8 (#$ . 767) nil])
(defalias 'rng-manual-fixup #[nil "eb\210\303\304!\210`\303\305!\210\306`S\"eb\210\303\307!\210 c\210\303\310!\210\311\224b\210\312\313 \314\n\315\261*\207" [pos title rng-manual-info search-forward "@top " "\n" buffer-substring-no-properties "@settitle " "@node" 0 "@dircategory Emacs\n" "@direntry\n* " ": (" ").\n@end direntry\n\n"] 6])
(defvar rng-manual-inline-elements '(kbd key samp code var emph uref point))
(defalias 'rng-process-tokens #[nil "\306\307C\307\211\211\211\211\211\211 6 7 8\310 \205\3539\311>\203a9\312>9\313>\314 \2036 \315 \2028 \316 !\307\2116\f:>\203q \203f
\203] \317 \210
\320=\203[ \321\322!\210\307\323\321\324\325\f\"!\210\n\203K\321\326!\210\202K\f\327=\203\224 \203\204 \317 \210\307\321\330!\210\n\203K\331 \210\320\321\332!\210\202K\f\333=\203\252 \331 \210\n \203K\321\334!\210\202K\f\335>\203\330 \203\305 \3236\317 \210\307\323\321\324\336\f\"!\210\n\203K\331 \210\320\321\324\337\f\"!\210\202K\f\340=\203\366 \331 \210 \203\355
\203\353 \323\341\n\203K\323\202K\f\342=\2035 \203$\317 \2108\306=\203\321\343!\210\321\344!\210\3218\3458!\210\321\346!\210\3078T8\n\203K\331 \210\3078S8\202K\f\347=\203K \203A\341\n\203K\323\321\350!\210 \203U7B7\n\203 7A7\202 9\351>\203 \3079\352>\203z\353;`\"\202\2359\354>\203\214<\203\214<\202\2359\355=\203\235\353;\356\\`\357Z\" \203 7@\203 \360\361\362 \323$6\203\272\360\363\364 \323$\3076
\320=\203\312\360\365\364 \323$ G\306V\203
\203\344\317 \210
\320=\203\342\321\322!\210\307\321 !\210\202 . \207" [keep-space-for-children data endp startp name want-blank-line 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*" ignore-following-newline keep-space-stack section-depth xmltok-type rng-manual-inline-elements xmltok-start xmltok-replacement] 10])
(defalias 'rng-manual-output-force-new-line #[nil "rq\210`Sf\301=?\205 \301c)\207" [standard-output 10] 2])
(defalias 'rng-manual-output-force-blank-line #[nil "rq\210`Sf\301=\203 `S\206 `Sf\301=?\205! \301c\202! \302c)\207" [standard-output 10 "\n\n"] 2])
(defalias 'rng-time-function #[(function &rest args) "\305 \306 \n\"\305 \307\310 \311\312\f\"!#\210 +\207" [start function args val end current-time apply message "%s ran in %g seconds" float-time time-subtract] 7])
(defalias 'rng-time-tokenize-buffer #[nil "\300\301!\207" [rng-time-function rng-tokenize-buffer] 2 nil nil])
(defalias 'rng-tokenize-buffer #[nil "\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 #[nil "\300\301!\207" [rng-time-function rng-validate-buffer] 2 nil nil])
(defalias 'rng-validate-buffer #[nil "\214~\210\306 \307\211\307\310\216\311ed\"\210-\312edT\"\210)\313\314 \210\315\316\317!\205+ \202\" \207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks rng-validate-up-to-date-end rng-error-count buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] rng-clear-cached-state rng-clear-overlays 1 rng-clear-conditional-region 0 rng-do-some-validation #[nil "\300\207" [t] 1]] 4])
Kontol Shell Bypass