[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
faster unicode character name completion
|
From: |
Kenichi Handa |
|
Subject: |
faster unicode character name completion |
|
Date: |
Fri, 04 Dec 2009 20:23:34 +0900 |
In article <address@hidden>, Chong Yidong <address@hidden> writes:
> We are close to ready to begin the Emacs 23.2 pretest. If there are no
> objections, I will roll the 23.1.90 pretest next Tuesday. If you still
> have some last-minute changes you want to make, that gives the weekend
> to wrap them up. After the pretest begins, we will be in feature freeze
> (and we'll begin the cvs to bzr crossover).
I'm now trying to make the completion of unicode character
name (used by read-char-by-name) faster, at least fast
enough for interactive use. Now it's very slow at the first
time and consumes so much memory. Attached is the currently
working code. In the actual code, I'll eliminate the big
defvar of ucs-name-head-table, generate the value by
admin/unidata/unidata-gen, and store it in an extra slot of
a char-table for `name' char-code-property.
The drawback of the new code is that one can see only the
list of the first words of character names in the completion
buffer at once by C-x 8 RET TAB, instead of all of the
unicode character names.
What do you think? If people think the above is not a
problem, I'll go ahead.
---
Kenichi Handa
address@hidden
--- ucs-name.el ---
(defvar ucs-name-head-table
'(("SPACE" 0)
("EXCLAMATION" 0 8192)
("QUOTATION" 0)
("NUMBER" 0 9344)
("DOLLAR" 0)
("PERCENT" 0)
("AMPERSAND" 0)
("APOSTROPHE" 0)
("LEFT" 0 128 3968 8192 8576 8832 8960 9088 9600 9856 10112 10496 10624
11008 11776 12288)
("RIGHT" 0 128 3968 8192 8576 8704 8832 8960 9088 9600 10112 10496 10624
11776 12288)
("ASTERISK" 0 8704)
("PLUS" 0 128 10752)
("COMMA" 0)
("HYPHEN" 0 8192 11776)
("FULL" 0 9600 10112)
("SOLIDUS" 0 10624)
("DIGIT" 0 9344 127232)
("COLON" 0 8320 8704)
("SEMICOLON" 0)
("LESS" 0 8704 8832 10496 10752 10880)
("EQUALS" 0 8704 10496 10624 10752 10880 11008)
("GREATER" 0 8704 8832 10496 10752 10880)
("QUESTION" 0 8192)
("COMMERCIAL" 0 8192)
("LATIN" 0 128 256 384 512 640 7424 7552 7680 7808 8320 8576 9984 11264
42752 42880 64256)
("REVERSE" 0 10112 10624 11008)
("CIRCUMFLEX" 0)
("LOW" 0 8192 12288)
("GRAVE" 0)
("VERTICAL" 0 8192 8832 8960 9088 9856 10112 10624 10880 11776 12288)
("TILDE" 0 8704 10496 10752 11008 11776)
("NO" 128 9856)
("INVERTED" 128 8192 8448 8704 11776)
("CENT" 128)
("POUND" 128)
("CURRENCY" 128)
("YEN" 128)
("BROKEN" 128 9088)
("SECTION" 128)
("DIAERESIS" 128)
("COPYRIGHT" 128)
("FEMININE" 128)
("NOT" 128 8704 8832 8960)
("SOFT" 128)
("REGISTERED" 128)
("MACRON" 128)
("DEGREE" 128 8448)
("SUPERSCRIPT" 128 8192)
("ACUTE" 128 10624)
("MICRO" 128)
("PILCROW" 128)
("MIDDLE" 128)
("CEDILLA" 128)
("MASCULINE" 128)
("VULGAR" 128 8448 8576)
("MULTIPLICATION" 128 9984 10752)
("DIVISION" 128 8704 8832)
("MODIFIER" 640 4224 7424 7552 11264 42752 42880)
("CARON" 640)
("BREVE" 640)
("DOT" 640 8704 8832)
("RING" 640 8704 11776)
("OGONEK" 640)
("SMALL" 640 8448 8704 8832 10752 65024 68352)
("DOUBLE" 640 8192 8448 8704 8832 9344 10624 10752 10880 11776 12288 65024)
("COMBINING" 768 1152 7552 8320 11648 12416 42496 43136 65024 119296)
("GREEK" 768 896 7424 7936 8064 65792 65920 119296)
("COPTIC" 896 11392)
("CYRILLIC" 1024 1152 1280 7424 42496 42624)
("ARMENIAN" 1280 1408 64256)
("HEBREW" 1408 64256)
("ARABIC" 1536 1664 1792 64256 64384 64512 64640 64768 64896 65024 65152)
("AFGHANI" 1536)
("EXTENDED" 1664)
("SYRIAC" 1792)
("THAANA" 1920)
("NKO" 1920)
("SAMARITAN" 2048)
("DEVANAGARI" 2304 43136)
("BENGALI" 2432)
("GURMUKHI" 2560)
("GUJARATI" 2688)
("ORIYA" 2816)
("TAMIL" 2944)
("TELUGU" 3072)
("KANNADA" 3200)
("MALAYALAM" 3328)
("SINHALA" 3456)
("THAI" 3584)
("LAO" 3712)
("TIBETAN" 3840 3968)
("MYANMAR" 4096 4224 43520)
("GEORGIAN" 4224 11520)
("HANGUL" 4352 4480 12288 12544 12672 43264 44032 44160 44288 44416 44544
44672 44800 44928 45056 45184 45312 45440 45568 45696 45824 45952 46080 46208
46336 46464 46592 46720 46848 46976 47104 47232 47360 47488 47616 47744 47872
48000 48128 48256 48384 48512 48640 48768 48896 49024 49152 49280 49408 49536
49664 49792 49920 50048 50176 50304 50432 50560 50688 50816 50944 51072 51200
51328 51456 51584 51712 51840 51968 52096 52224 52352 52480 52608 52736 52864
52992 53120 53248 53376 53504 53632 53760 53888 54016 54144 54272 54400 54528
54656 54784 54912 55040 55168)
("ETHIOPIC" 4608 4736 4864 4992 11648)
("CHEROKEE" 4992)
("CANADIAN" 5120 5248 5376 5504 5632 6272)
("OGHAM" 5760)
("RUNIC" 5760)
("TAGALOG" 5888)
("HANUNOO" 5888)
("PHILIPPINE" 5888)
("BUHID" 5888)
("TAGBANWA" 5888)
("KHMER" 6016 6528)
("MONGOLIAN" 6144 6272)
("LIMBU" 6400)
("TAI" 6400 6656 6784 43648)
("NEW" 6528 8320)
("BUGINESE" 6656)
("BALINESE" 6912)
("SUNDANESE" 7040)
("LEPCHA" 7168)
("OL" 7168)
("VEDIC" 7296)
("EN" 8192)
("EM" 8192)
("THREE" 8192 8576 9856 10112 10752 11008)
("FOUR" 8192 9984)
("SIX" 8192 9984)
("FIGURE" 8192)
("PUNCTUATION" 8192)
("THIN" 8192)
("HAIR" 8192)
("ZERO" 8192 65152)
("NON" 8192)
("HORIZONTAL" 8192 9088 9856 11008)
("SINGLE" 8192)
("DAGGER" 8192)
("BULLET" 8192 8704)
("TRIANGULAR" 8192)
("ONE" 8192 11776)
("TWO" 8192 10624 10752 11776)
("HYPHENATION" 8192)
("LINE" 8192 10752)
("PARAGRAPH" 8192)
("POP" 8192)
("NARROW" 8192)
("PER" 8192 8448)
("PRIME" 8192)
("TRIPLE" 8192 8704 8832 10624 10752 10880)
("REVERSED" 8192 8448 8704 8832 8960 9728 10624 10880 11776 12288)
("CARET" 8192)
("REFERENCE" 8192)
("INTERROBANG" 8192)
("OVERLINE" 8192)
("UNDERTIE" 8192)
("CHARACTER" 8192)
("ASTERISM" 8192)
("FRACTION" 8192 8448)
("TIRONIAN" 8192)
("BLACK" 8192 8448 9600 9728 9856 9984 10112 10624 11008)
("CLOSE" 8192)
("SWUNG" 8192)
("FLOWER" 8192 9856)
("QUADRUPLE" 8192 10752)
("FIVE" 8192 11776)
("DOTTED" 8192 9600 10624 11008 11776)
("TRICOLON" 8192)
("MEDIUM" 8192 9600 9856 9984)
("WORD" 8192 11776)
("FUNCTION" 8192)
("INVISIBLE" 8192)
("INHIBIT" 8192)
("ACTIVATE" 8192)
("NATIONAL" 8192)
("NOMINAL" 8192)
("SUBSCRIPT" 8320)
("EURO" 8320)
("CRUZEIRO" 8320)
("FRENCH" 8320)
("LIRA" 8320)
("MILL" 8320)
("NAIRA" 8320)
("PESETA" 8320)
("RUPEE" 8320)
("WON" 8320)
("DONG" 8320)
("KIP" 8320)
("TUGRIK" 8320)
("DRACHMA" 8320)
("GERMAN" 8320)
("PESO" 8320)
("GUARANI" 8320)
("AUSTRAL" 8320)
("HRYVNIA" 8320)
("CEDI" 8320)
("LIVRE" 8320)
("SPESMILO" 8320)
("TENGE" 8320)
("ACCOUNT" 8448)
("ADDRESSED" 8448)
("CENTRE" 8448)
("CARE" 8448)
("CADA" 8448)
("EULER" 8448)
("SCRUPLE" 8448)
("SCRIPT" 8448)
("PLANCK" 8448)
("L" 8448)
("NUMERO" 8448)
("SOUND" 8448)
("PRESCRIPTION" 8448)
("RESPONSE" 8448)
("SERVICE" 8448)
("TELEPHONE" 8448 8960 9984)
("TRADE" 8448)
("VERSICLE" 8448)
("OUNCE" 8448)
("OHM" 8448)
("TURNED" 8448 8960 9856 10624)
("KELVIN" 8448)
("ANGSTROM" 8448)
("ESTIMATED" 8448)
("ALEF" 8448)
("BET" 8448)
("GIMEL" 8448)
("DALET" 8448)
("INFORMATION" 8448)
("ROTATED" 8448 9984)
("FACSIMILE" 8448)
("PROPERTY" 8448)
("AKTIESELSKAB" 8448)
("SYMBOL" 8448 9216)
("ROMAN" 8448 8576 65920)
("LEFTWARDS" 8576 10496 11008)
("UPWARDS" 8576 10112 10496 11008 11776)
("RIGHTWARDS" 8576 10496 11008)
("DOWNWARDS" 8576 10112 10496 11008 11776)
("UP" 8576 8832 8960 9600 10112 10496 10624 11008)
("NORTH" 8576 10496 11008 43008)
("SOUTH" 8576 10496 11008)
("ANTICLOCKWISE" 8576 8704 10112 10496 10752)
("CLOCKWISE" 8576 8704 10112 10496)
("FOR" 8704)
("COMPLEMENT" 8704)
("PARTIAL" 8704)
("THERE" 8704)
("EMPTY" 8704 10624)
("INCREMENT" 8704)
("NABLA" 8704)
("ELEMENT" 8704 8832 10112 10880)
("CONTAINS" 8704 8832)
("DOES" 8704 8832 10880)
("END" 8704)
("N" 8704 8832 10752 10880)
("MINUS" 8704 10752)
("SET" 8704)
("SQUARE" 8704 8832 8960 9088 9600 9856 10624 10880 11008 12928 13056 13184
127360 127488)
("CUBE" 8704)
("FOURTH" 8704)
("PROPORTIONAL" 8704)
("INFINITY" 8704 10624)
("ANGLE" 8704 10624)
("MEASURED" 8704 10624)
("SPHERICAL" 8704 10624)
("DIVIDES" 8704)
("PARALLEL" 8704 10880)
("LOGICAL" 8704 10752)
("INTERSECTION" 8704 10752)
("UNION" 8704 10752)
("INTEGRAL" 8704 9088 10752)
("CONTOUR" 8704)
("SURFACE" 8704)
("VOLUME" 8704)
("THEREFORE" 8704)
("BECAUSE" 8704)
("RATIO" 8704)
("PROPORTION" 8704)
("EXCESS" 8704)
("GEOMETRIC" 8704)
("HOMOTHETIC" 8704)
("SINE" 8704)
("WREATH" 8704)
("ASYMPTOTICALLY" 8704)
("APPROXIMATELY" 8704 10752)
("NEITHER" 8704 8832)
("ALMOST" 8704 10752)
("ALL" 8704 8960)
("EQUIVALENT" 8704 10752)
("GEOMETRICALLY" 8704)
("DIFFERENCE" 8704)
("APPROACHES" 8704)
("IMAGE" 8704 8832)
("CORRESPONDS" 8704)
("ESTIMATES" 8704)
("EQUIANGULAR" 8704)
("STAR" 8704 8832 9728 9984)
("DELTA" 8704)
("EQUAL" 8704 8832)
("QUESTIONED" 8704)
("IDENTICAL" 8704 10624 10752)
("STRICTLY" 8704)
("MUCH" 8704)
("BETWEEN" 8704)
("PRECEDES" 8704 8832 10880)
("SUCCEEDS" 8704 8832 10880)
("SUBSET" 8832 10496 10880)
("SUPERSET" 8832 10112 10496 10880)
("MULTISET" 8832)
("CIRCLED" 8832 9088 9216 9344 9856 9984 10112 10624 10752 12288 12800
12928 127232)
("SQUARED" 8832 9856 10624 11776 127232 127488)
("DOWN" 8832 8960 10496 10624 10880)
("ASSERTION" 8832)
("MODELS" 8832)
("TRUE" 8832)
("FORCES" 8832)
("NEGATED" 8832)
("NORMAL" 8832)
("ORIGINAL" 8832)
("MULTIMAP" 8832)
("HERMITIAN" 8832)
("INTERCALATE" 8832)
("XOR" 8832)
("NAND" 8832)
("NOR" 8832)
("DIAMOND" 8832 11008)
("BOWTIE" 8832 10624)
("CURLY" 8832 9088)
("PITCHFORK" 8832 10880)
("VERY" 8832)
("MIDLINE" 8832)
("Z" 8832 10624 10752)
("DIAMETER" 8960)
("ELECTRIC" 8960)
("HOUSE" 8960)
("PROJECTIVE" 8960)
("PERSPECTIVE" 8960)
("WAVY" 8960 12288 65024)
("BOTTOM" 8960 9088 10496 11776)
("TOP" 8960 9088 10496 11776)
("ARC" 8960)
("SEGMENT" 8960)
("SECTOR" 8960)
("POSITION" 8960)
("VIEWDATA" 8960)
("PLACE" 8960)
("WATCH" 8960)
("HOURGLASS" 8960)
("FROWN" 8960)
("SMILE" 8960)
("OPTION" 8960)
("ERASE" 8960)
("X" 8960)
("KEYBOARD" 8960)
("BENZENE" 8960 9088)
("CYLINDRICITY" 8960)
("SYMMETRY" 8960)
("TOTAL" 8960)
("DIMENSION" 8960)
("CONICAL" 8960)
("SLOPE" 8960)
("COUNTERBORE" 8960)
("COUNTERSINK" 8960)
("APL" 8960 9088)
("SHOULDERED" 8960)
("BELL" 8960)
("INSERTION" 9088)
("CONTINUOUS" 9088)
("DISCONTINUOUS" 9088)
("EMPHASIS" 9088)
("COMPOSITION" 9088)
("WHITE" 9088 9600 9728 9856 9984 10112 10624 10880 11008 65024)
("ENTER" 9088)
("ALTERNATIVE" 9088)
("HELM" 9088)
("UNDO" 9088)
("MONOSTABLE" 9088)
("HYSTERESIS" 9088)
("OPEN" 9088 9216 9984 10112)
("PASSIVE" 9088)
("DIRECT" 9088)
("SOFTWARE" 9088)
("DECIMAL" 9088)
("PREVIOUS" 9088)
("NEXT" 9088)
("PRINT" 9088)
("CLEAR" 9088)
("UPPER" 9088 9600 9984 10112)
("SUMMATION" 9088 10752)
("RADICAL" 9088)
("DENTISTRY" 9088)
("RETURN" 9088)
("EJECT" 9088)
("METRICAL" 9088)
("EARTH" 9088 9728)
("FUSE" 9088)
("STRAIGHTNESS" 9088)
("FLATNESS" 9088)
("AC" 9088)
("ELECTRICAL" 9088)
("BLANK" 9216)
("OCR" 9216)
("PARENTHESIZED" 9216 9344 12800 127232)
("NEGATIVE" 9344 127232 127360)
("BOX" 9472)
("LOWER" 9600 9984 10112 10496)
("LIGHT" 9600 9984)
("DARK" 9600)
("QUADRANT" 9600)
("FISHEYE" 9600)
("LOZENGE" 9600 10112)
("CIRCLE" 9600 10624)
("BULLSEYE" 9600)
("INVERSE" 9600)
("LARGE" 9600 10112 10752 10880 68352)
("CLOUD" 9728)
("UMBRELLA" 9728 9856)
("SNOWMAN" 9728 9856)
("COMET" 9728)
("LIGHTNING" 9728)
("THUNDERSTORM" 9728)
("SUN" 9728 9856)
("ASCENDING" 9728)
("DESCENDING" 9728)
("CONJUNCTION" 9728)
("OPPOSITION" 9728)
("BALLOT" 9728 9984)
("SALTIRE" 9728)
("HOT" 9728)
("SHAMROCK" 9728)
("SKULL" 9728)
("CAUTION" 9728)
("RADIOACTIVE" 9728)
("BIOHAZARD" 9728)
("CADUCEUS" 9728)
("ANKH" 9728)
("ORTHODOX" 9728)
("CHI" 9728)
("CROSS" 9728)
("FARSI" 9728)
("ADI" 9728)
("HAMMER" 9728 9856)
("PEACE" 9728)
("YIN" 9728)
("TRIGRAM" 9728)
("WHEEL" 9728)
("FIRST" 9728)
("LAST" 9728)
("MERCURY" 9728)
("FEMALE" 9728)
("MALE" 9728 9856)
("JUPITER" 9728)
("SATURN" 9728)
("URANUS" 9728)
("NEPTUNE" 9728)
("PLUTO" 9728)
("ARIES" 9728)
("TAURUS" 9728)
("GEMINI" 9728)
("CANCER" 9728)
("LEO" 9728)
("VIRGO" 9728)
("LIBRA" 9728)
("SCORPIUS" 9728)
("SAGITTARIUS" 9728)
("CAPRICORN" 9728)
("AQUARIUS" 9728)
("PISCES" 9728)
("QUARTER" 9728)
("EIGHTH" 9728)
("BEAMED" 9728)
("MUSIC" 9728)
("WEST" 9728)
("EAST" 9728)
("UNIVERSAL" 9728)
("RECYCLING" 9728)
("RECYCLED" 9728)
("PARTIALLY" 9728)
("PERMANENT" 9728)
("WHEELCHAIR" 9728)
("DIE" 9856)
("MONOGRAM" 9856 119552)
("DIGRAM" 9856 119552)
("ANCHOR" 9856)
("CROSSED" 9856 127360)
("STAFF" 9856)
("SCALES" 9856)
("ALEMBIC" 9856)
("GEAR" 9856)
("ATOM" 9856)
("FLEUR" 9856)
("OUTLINED" 9856 9984)
("WARNING" 9856)
("HIGH" 9856)
("DOUBLED" 9856)
("INTERLOCKED" 9856)
("MARRIAGE" 9856)
("DIVORCE" 9856)
("UNMARRIED" 9856)
("COFFIN" 9856)
("FUNERAL" 9856)
("NEUTER" 9856)
("CERES" 9856)
("PALLAS" 9856)
("JUNO" 9856)
("VESTA" 9856)
("CHIRON" 9856)
("SEXTILE" 9856)
("SEMISEXTILE" 9856)
("QUINCUNX" 9856)
("SESQUIQUADRATE" 9856)
("SOCCER" 9856)
("BASEBALL" 9856)
("RAIN" 9856)
("THUNDER" 9856)
("CROSSING" 9856)
("DISABLED" 9856)
("PICK" 9856)
("CAR" 9856)
("HELMET" 9856)
("CHAINS" 9856)
("ALTERNATE" 9856)
("DRIVE" 9856)
("HEAVY" 9856 9984 10112 11008)
("FALLING" 9856 10496)
("RESTRICTED" 9856)
("SHINTO" 9856)
("CHURCH" 9856)
("CASTLE" 9856)
("HISTORIC" 9856)
("MAP" 9856)
("MOUNTAIN" 9856)
("FOUNTAIN" 9856)
("FLAG" 9856)
("FERRY" 9856)
("SAILBOAT" 9856)
("SKIER" 9856)
("ICE" 9856)
("PERSON" 9856)
("TENT" 9856)
("JAPANESE" 9856 12288)
("HEADSTONE" 9856)
("FUEL" 9856)
("CUP" 9856)
("TAPE" 9984)
("AIRPLANE" 9984)
("ENVELOPE" 9984)
("VICTORY" 9984)
("WRITING" 9984)
("PENCIL" 9984)
("CHECK" 9984)
("SHADOWED" 9984)
("MALTESE" 9984)
("STRESS" 9984)
("PINWHEEL" 9984)
("EIGHT" 9984)
("TWELVE" 9984)
("SIXTEEN" 9984)
("TEARDROP" 9984 10112)
("SNOWFLAKE" 9984)
("TIGHT" 9984)
("SPARKLE" 9984)
("BALLOON" 9984)
("CURVED" 9984)
("FLORAL" 9984)
("DINGBAT" 9984 10112)
("DRAFTING" 10112)
("TRIANGLE" 10112 10624)
("DASHED" 10112 65024)
("SQUAT" 10112)
("BACK" 10112)
("FRONT" 10112)
("NOTCHED" 10112)
("WEDGE" 10112)
("PERPENDICULAR" 10112 10880)
("OR" 10112)
("LONG" 10112 10880 11008)
("AND" 10112)
("MATHEMATICAL" 10112 119808 119936 120064 120192 120320 120448 120576
120704)
("BRAILLE" 10240 10368)
("RISING" 10496)
("WAVE" 10496 11008 12288)
("ARROW" 10496)
("SHORT" 10496 10880)
("OBLIQUE" 10624)
("S" 10624)
("TIMES" 10624)
("INCOMPLETE" 10624)
("TIE" 10624)
("INCREASES" 10624)
("SHUFFLE" 10624)
("GLEICH" 10624)
("THERMODYNAMIC" 10624)
("ERROR" 10624)
("RULE" 10624)
("BIG" 10624)
("TINY" 10624 68352)
("MINY" 10624)
("MODULO" 10752)
("FINITE" 10752)
("CIRCULATION" 10752)
("QUATERNION" 10752)
("JOIN" 10752)
("VECTOR" 10752)
("SEMIDIRECT" 10752)
("SMASH" 10752)
("INTERIOR" 10752)
("RIGHTHAND" 10752)
("AMALGAMATION" 10752)
("CLOSED" 10752 10880)
("SLOPING" 10752)
("SIMILAR" 10752 10880)
("CONGRUENT" 10752)
("SLANTED" 10880)
("SMALLER" 10880)
("LARGER" 10880)
("TRANSVERSAL" 10880)
("FORKING" 10880)
("NONFORKING" 10880)
("GLAGOLITIC" 11264)
("TIFINAGH" 11520)
("RAISED" 11776)
("EDITORIAL" 11776)
("PARAGRAPHOS" 11776)
("FORKED" 11776)
("HYPODIASTOLE" 11776)
("PALM" 11776)
("CJK" 11904 12672)
("KANGXI" 12032 12160)
("IDEOGRAPHIC" 12160 12288 12672 12928 13056 13184)
("DITTO" 12288)
("POSTAL" 12288)
("GETA" 12288)
("HANGZHOU" 12288)
("MASU" 12288)
("PART" 12288)
("HIRAGANA" 12288 12416)
("KATAKANA" 12416 12672)
("BOPOMOFO" 12544 12672)
("PARTNERSHIP" 12800)
("KOREAN" 12800)
("LIMITED" 12928)
("HEXAGRAM" 19840)
("YI" 40960 41088 41216 41344 41472 41600 41728 41856 41984 42112)
("LISU" 42112)
("VAI" 42240 42368 42496)
("SLAVONIC" 42496)
("BAMUM" 42624)
("SYLOTI" 43008)
("PHAGS" 43008)
("SAURASHTRA" 43136)
("KAYAH" 43264)
("REJANG" 43264)
("JAVANESE" 43392)
("CHAM" 43520)
("MEETEI" 43904)
("ORNATE" 64768)
("RIAL" 64896)
("VARIATION" 65024 917760 917888)
("PRESENTATION" 65024)
("SESAME" 65024)
("CENTRELINE" 65024)
("FULLWIDTH" 65280 65408)
("HALFWIDTH" 65280 65408)
("INTERLINEAR" 65408)
("OBJECT" 65408)
("REPLACEMENT" 65408)
("LINEAR" 65536 65664)
("AEGEAN" 65792)
("PHAISTOS" 65920)
("LYCIAN" 66176)
("CARIAN" 66176)
("OLD" 66304 66432 68096 68608)
("GOTHIC" 66304)
("UGARITIC" 66432)
("DESERET" 66560)
("SHAVIAN" 66560)
("OSMANYA" 66688)
("CYPRIOT" 67584)
("IMPERIAL" 67584)
("PHOENICIAN" 67840)
("LYDIAN" 67840)
("KHAROSHTHI" 68096)
("AVESTAN" 68352)
("INSCRIPTIONAL" 68352)
("RUMI" 69120)
("KAITHI" 69760)
("CUNEIFORM" 73728 73856 73984 74112 74240 74368 74496 74752)
("EGYPTIAN" 77824 77952 78080 78208 78336 78464 78592 78720 78848)
("BYZANTINE" 118784 118912)
("MUSICAL" 119040 119168)
("TETRAGRAM" 119552)
("COUNTING" 119552)
("MAHJONG" 126976)
("DOMINO" 126976 127104)
("TORTOISE" 127232 127488)
("LANGUAGE" 917504)
("TAG" 917504)
("CANCEL" 917504)))
(defun ucs-name-expand-table (head)
(let ((slot (assoc head ucs-name-head-table))
names)
(when slot
(if (consp (cadr slot))
(cdr slot)
(dolist (elt (cdr slot))
(dotimes (i #x80)
(let* ((c (+ elt i))
(name (get-char-code-property c 'name)))
(if (and name (eq (string-match head name) 0))
(push (cons name c) names)))))
(setcdr slot names)))))
(defun ucs-name-filter (str names)
(let (l)
(dolist (elt names)
(if (eq (string-match str (car elt)) 0)
(push elt l)))
l))
(defun ucs-name-completion (str)
(when (string-match "^[A-Za-z]*" str)
(let ((head (match-string 0 str))
slot names)
(if (and (= (length head) (length str))
(not (assoc-string str ucs-name-head-table)))
(ucs-name-filter str ucs-name-head-table)
(ucs-name-filter str (ucs-name-expand-table head))))))
(defun read-char-by-name (prompt)
(let* ((completion-ignore-case t)
(input (completing-read
prompt (completion-table-dynamic 'ucs-name-completion))))
(cond
((string-match-p "^[0-9a-fA-F]+$" input)
(string-to-number input 16))
((string-match-p "^#" input)
(read input))
(t
(or (and (string-match "^[A-Za-z]+" input)
(cdr (assoc input
(ucs-name-expand-table (match-string 0 input)))))
(error "Invalid character name: %s" input))))))
- Emacs 23.2 Pretest next week, Chong Yidong, 2009/12/03
- faster unicode character name completion,
Kenichi Handa <=
- Re: faster unicode character name completion, Deniz Dogan, 2009/12/04
- Re: faster unicode character name completion, Juanma Barranquero, 2009/12/04
- Re: faster unicode character name completion, Florian Beck, 2009/12/04
- Re: faster unicode character name completion, Stefan Monnier, 2009/12/04
- Re: faster unicode character name completion, Miles Bader, 2009/12/04
- Re: faster unicode character name completion, Kenichi Handa, 2009/12/06
- Re: faster unicode character name completion, Kenichi Handa, 2009/12/07
- Re: faster unicode character name completion, Stefan Monnier, 2009/12/07
- Re: faster unicode character name completion, Juri Linkov, 2009/12/07
- Re: faster unicode character name completion, Stefan Monnier, 2009/12/07