ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/nxml-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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'nxml-uchnm)
#@61 Generate files containing char names from Unicode standard.
(defalias 'nxml-create-unicode-char-name-sets #[(file) "\305\306\"\210\212\307 !\210eb\210\310\211 \311\312\310\313#\205k \314\315\316!\317\"\315\320!\f\203: \320\f@8V\203: \fA\211\204* \f@A@ X\203 \320\f@8X\203 \212\307\321\f@@!\322N\323P!\210\324c\210\325\np\"\210\326\327 \"c\210)\202 ,\207" [nxml-unicode-blocks file name code blocks mapc #[(block) "\302@!\212\303 \304N\305P!\210\306 \210\307c\210\310 p\"\210\311c\210`\312Zb*\207" [block nameset nxml-unicode-block-char-name-set find-file nxml-char-name-set-file ".el" erase-buffer "(nxml-define-char-name-set '" prin1 "\n '())\n" 3] 3] find-file nil re-search-forward "^\\([0-9A-F]+\\);\\([^<;][^;]*\\);" t string-to-number match-string 1 16 2 nxml-unicode-block-char-name-set nxml-char-name-set-file ".el" "(" prin1 format " #x%04X)\n "] 5 (#$ . 432) "fUnicodeData file: "])
(defalias 'nxml-insert-target-repertoire-glyph-set #[(file var) "\306\211r\307\n!q\210eb\210\310\311\306\312#\203I \313\314!\315 \310\316 \312#\203E \317\224\2032 \320\f\313\317!Q\202? \321\f\313\314!\322\f\313\323!\324\260 B\202 *\202
) \237\325\326
\"c\210 \203\213 @ Ac\210G\327U\203\201 \203\201 @G\327U\203\201 \330c\210 @c\210 A\211\204k \203S \331c\210\202S \332c*\207" [head lst file eol row var nil find-file-noselect re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ ]+" t match-string 1 line-end-position "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" 3 "#x" "(#x" " . #x" 2 ")" format "(defconst %s\n [" 6 " " "\n " "])\n"] 8 nil "fTarget file: \nSVariable name: "])
(provide 'nxml-maint)
Kontol Shell Bypass