mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-21 10:24:55 +00:00
16 lines
2.4 KiB
EmacsLisp
16 lines
2.4 KiB
EmacsLisp
;; Copyright (C) 1991-2009 Unicode, Inc.
|
||
;; This file was generated from the Unicode data files at
|
||
;; http://www.unicode.org/Public/UNIDATA/.
|
||
;; See lisp/international/README for the copyright and permission notice.
|
||
(define-char-code-property 'iso-10646-comment #^[nil nil char-code-property-table nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil iso-10646-comment #[(char val table) ";\203\200\306H\306V\203 \207\307\211 \310\"\311\"\312 \313\"\306H \314 G '\315\316\317\" (\306 )\317\211 * +\317\211 , -\317\211 . /\317 0
|
||
'W\203\353
|
||
H\211+\320W\203\305 ,\204^ -\203l (),-\244\211.I\210
|
||
T)T)\317\211,-+\306V\203B . 1+\314U\203\224
|
||
H
|
||
T00\321\246.\233-0\321\245\306 2
|
||
2W\203\301 ,1@C\244,1A1
|
||
T\211\202\246 +\202B ,\322+ \211 3\320Z\2113 GW\205\336 3H*!C\244,
|
||
T\211\202C ,\204\365 -\203 (),-\244I\210\317\316\306 2
|
||
2W\203w
|
||
|
||
\\+(
|
||
H\211 4\203^\3234!\2114A\317 5\211 6\203V6@\2115\324\230\204H656AB\241\2106\325\240\2106\211 7AA)\2116\204.\326\3274\"4* +4I\210+ U\203o4)
|
||
T\211\202*\206}\330.
|
||
\207\250\203\306V\203\312 \313\"\314H\211 8SH\211 9\331=\203\350\312 \313\"\332H : \333Z\211\334\245 \334\246\335\245 \335\246 ; < =\336\337:\306H=H\206\311\330:\314H<H;\306U\203\333\330\202\343:\332H;SH$,\2029\340=\203\370\336\3419 #\2029\342=\203\336\3419 #\2029\343=\205\336\3449 \345Z\346\\#*\207\330\207" [val char first-char table word-table i 0 lsh -7 7 char-table-extra-slot 4 1 make-vector 128 nil 3 16 symbol-name copy-sequence "-" " " apply concat "" HANGUL\ SYLLABLE 2 44032 588 28 format "HANGUL SYLLABLE %s%s%s" CJK\ IDEOGRAPH "%s-%04X" CJK\ COMPATIBILITY\ IDEOGRAPH VARIATION\ SELECTOR "%s-%d" 917760 17 len vec idx case-fold-search c word-list tail-list last-list word diff-head l --dotimes-limit-- code name elt tail x symbol-table sym jamo-name-table T V L] 7] #[(char val table) " H\211;\203
|
||
\304H\304U\203 \305\306\"
|
||
#\210 I)\207" [table char current-val val 0 char-table-extra-slot 1] 5] nil [[]]] "Unicode ISO 10646 comment.
|
||
Property value is a string.")
|
||
;; Local Variables:
|
||
;; coding: utf-8
|
||
;; no-byte-compile: t
|
||
;; End:
|
||
|
||
;; uni-comment.el ends here
|