1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp / nxml /
Filename : nxml-uchnm.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/nxml-uchnm.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.

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


(require 'nxml-mode)
#@282 List of Unicode blocks.
For each block there is a list (NAME FIRST LAST), where
NAME is a string giving the official name of the block,
FIRST is the first code-point and LAST is the last code-point.
Blocks containing only characters with algorithmic names or no names
are omitted.
(defconst nxml-unicode-blocks '(("Basic Latin" 0 127) ("Latin-1 Supplement" 128 255) ("Latin Extended-A" 256 383) ("Latin Extended-B" 384 591) ("IPA Extensions" 592 687) ("Spacing Modifier Letters" 688 767) ("Combining Diacritical Marks" 768 879) ("Greek and Coptic" 880 1023) ("Cyrillic" 1024 1279) ("Cyrillic Supplementary" 1280 1327) ("Armenian" 1328 1423) ("Hebrew" 1424 1535) ("Arabic" 1536 1791) ("Syriac" 1792 1871) ("Thaana" 1920 1983) ("Devanagari" 2304 2431) ("Bengali" 2432 2559) ("Gurmukhi" 2560 2687) ("Gujarati" 2688 2815) ("Oriya" 2816 2943) ("Tamil" 2944 3071) ("Telugu" 3072 3199) ("Kannada" 3200 3327) ("Malayalam" 3328 3455) ("Sinhala" 3456 3583) ("Thai" 3584 3711) ("Lao" 3712 3839) ("Tibetan" 3840 4095) ("Myanmar" 4096 4255) ("Georgian" 4256 4351) ("Hangul Jamo" 4352 4607) ("Ethiopic" 4608 4991) ("Cherokee" 5024 5119) ("Unified Canadian Aboriginal Syllabics" 5120 5759) ("Ogham" 5760 5791) ("Runic" 5792 5887) ("Tagalog" 5888 5919) ("Hanunoo" 5920 5951) ("Buhid" 5952 5983) ("Tagbanwa" 5984 6015) ("Khmer" 6016 6143) ("Mongolian" 6144 6319) ("Latin Extended Additional" 7680 7935) ("Greek Extended" 7936 8191) ("General Punctuation" 8192 8303) ("Superscripts and Subscripts" 8304 8351) ("Currency Symbols" 8352 8399) ("Combining Diacritical Marks for Symbols" 8400 8447) ("Letterlike Symbols" 8448 8527) ("Number Forms" 8528 8591) ("Arrows" 8592 8703) ("Mathematical Operators" 8704 8959) ("Miscellaneous Technical" 8960 9215) ("Control Pictures" 9216 9279) ("Optical Character Recognition" 9280 9311) ("Enclosed Alphanumerics" 9312 9471) ("Box Drawing" 9472 9599) ("Block Elements" 9600 9631) ("Geometric Shapes" 9632 9727) ("Miscellaneous Symbols" 9728 9983) ("Dingbats" 9984 10175) ("Miscellaneous Mathematical Symbols-A" 10176 10223) ("Supplemental Arrows-A" 10224 10239) ("Braille Patterns" 10240 10495) ("Supplemental Arrows-B" 10496 10623) ("Miscellaneous Mathematical Symbols-B" 10624 10751) ("Supplemental Mathematical Operators" 10752 11007) ("CJK Radicals Supplement" 11904 12031) ("Kangxi Radicals" 12032 12255) ("Ideographic Description Characters" 12272 12287) ("CJK Symbols and Punctuation" 12288 12351) ("Hiragana" 12352 12447) ("Katakana" 12448 12543) ("Bopomofo" 12544 12591) ("Hangul Compatibility Jamo" 12592 12687) ("Kanbun" 12688 12703) ("Bopomofo Extended" 12704 12735) ("Katakana Phonetic Extensions" 12784 12799) ("Enclosed CJK Letters and Months" 12800 13055) ("CJK Compatibility" 13056 13311) ("CJK Unified Ideographs Extension A" 13312 19903) ("Yi Syllables" 40960 42127) ("Yi Radicals" 42128 42191) ("Alphabetic Presentation Forms" 64256 64335) ("Arabic Presentation Forms-A" 64336 65023) ("Variation Selectors" 65024 65039) ("Combining Half Marks" 65056 65071) ("CJK Compatibility Forms" 65072 65103) ("Small Form Variants" 65104 65135) ("Arabic Presentation Forms-B" 65136 65279) ("Halfwidth and Fullwidth Forms" 65280 65519) ("Specials" 65520 65535) ("Old Italic" 66304 66351) ("Gothic" 66352 66383) ("Deseret" 66560 66639) ("Byzantine Musical Symbols" 118784 119039) ("Musical Symbols" 119040 119295) ("Mathematical Alphanumeric Symbols" 119808 120831) ("Tags" 917504 917631)) (#$ . 580))
#@142 Return a symbol for a block whose official Unicode name is NAME.
The symbol is generated by downcasing and replacing each space
by a hyphen.
(defalias 'nxml-unicode-block-char-name-set #[(name) "\301\302\303\304\227#!\207" [name intern replace-regexp-in-string " " "-"] 5 (#$ . 4014)])
#@50 Default value for `nxml-enabled-unicode-blocks'.
(defvar nxml-enabled-unicode-blocks-default '(basic-latin latin-1-supplement latin-extended-a latin-extended-b ipa-extensions spacing-modifier-letters combining-diacritical-marks greek-and-coptic cyrillic general-punctuation superscripts-and-subscripts currency-symbols combining-diacritical-marks-for-symbols letterlike-symbols number-forms arrows mathematical-operators miscellaneous-technical control-pictures optical-character-recognition enclosed-alphanumerics box-drawing block-elements geometric-shapes miscellaneous-symbols dingbats miscellaneous-mathematical-symbols-a supplemental-arrows-a supplemental-arrows-b miscellaneous-mathematical-symbols-b supplemental-mathematical-operators cjk-symbols-and-punctuation alphabetic-presentation-forms variation-selectors small-form-variants specials mathematical-alphanumeric-symbols) (#$ . 4307))
(mapc #[(block) "\302\303@!\304\305\306A@\3078#	\"\"\207" [block data-directory nxml-autoload-char-name-set nxml-unicode-block-char-name-set expand-file-name format "nxml/%05X-%05X" 2] 8] nxml-unicode-blocks)
(defvar nxml-internal-unicode-char-name-sets-enabled nil)
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\"B&	\207" [nxml-unicode-blocks custom-declare-variable nxml-enabled-unicode-blocks nxml-enabled-unicode-blocks-default "List of Unicode blocks for which Unicode character names are enabled.\nEach block is identified by a symbol derived from the name\nof the block by downcasing and replacing each space by a hyphen." :group nxml :set #[(sym value) "\302\303\"\210	\205�\304 \207" [value nxml-internal-unicode-char-name-sets-enabled set-default nxml-enabled-unicode-blocks nxml-enable-unicode-char-name-sets] 3] :type set mapcar #[(block) "\301\302\303\304@A@\3058$\306@!F\207" [block const :tag format "%s (%04X-%04X)" 2 nxml-unicode-block-char-name-set] 8]] 13)
#@166 Enable the use of Unicode standard names for characters.
The Unicode blocks for which names are enabled is controlled by
the variable `nxml-enabled-unicode-blocks'.
(defalias 'nxml-enable-unicode-char-name-sets #[nil "\303\304\305	\"\210\304\306\n\"\207" [nxml-internal-unicode-char-name-sets-enabled nxml-unicode-blocks nxml-enabled-unicode-blocks t mapc #[(block) "\301\302@!!\207" [block nxml-disable-char-name-set nxml-unicode-block-char-name-set] 3] #[(nameset) "\301!\207" [nameset nxml-enable-char-name-set] 2]] 3 (#$ . 6214) nil])
(provide 'nxml-uchnm)