;ELC   
;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct  4 11:58:41 2004
;;; from file /home/jjc/elisp/nxml-maint.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`nxml-maint.el' was compiled for Emacs 19.29 or later"))

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


(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 mapcar #[(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 (#$ . 641) "fUnicodeData file: "])
(defalias 'nxml-insert-target-repertoire-glyph-set #[(file var) "\306\211\212\307\n!q\210eb\210\310\311\306\312#\203M \313\314!\212\306\210`)\310\315\312#\203I \316\224\2036 \317\f\313\316!Q\202C \320\f\313\314!\321\f\313\322!\323\260	B\202  *\202 )	\237\324\325\"c\210	\203\217 	@	Ac\210G\326U\203\205 	\203\205 	@G\326U\203\205 \327c\210	@c\210	A\211\204o 	\203W \330c\210\202W \331c*\207" [head lst file eol row var nil find-file-noselect re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ 	]+" t match-string 1 "\\([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)