comparison lisp/international/characters.el @ 85154:e12e16dc9c24

Undo unwanted and unexplained change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 11 Oct 2007 01:46:40 +0000
parents d1ea5efb14f2
children 107ccd98fa12
comparison
equal deleted inserted replaced
85153:c3969e15712b 85154:e12e16dc9c24
838 (modify-category-entry (make-char 'tibetan-1-column) ?q) 838 (modify-category-entry (make-char 'tibetan-1-column) ?q)
839 (dotimes (i (1+ (- #xfff #xf00))) 839 (dotimes (i (1+ (- #xfff #xf00)))
840 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q)) 840 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
841 841
842 (let ((deflist '(;; chars syntax category 842 (let ((deflist '(;; chars syntax category
843 ("4$(7"!(B0$(7"!(B1-4$(7"J(B0$(7"J(B14$(7"K(B0$(7"K(B1" "w" ?0) ; consonant 843 ("4$(7"!0"!1(B-4$(7"J0"J14"K0"K1(B" "w" ?0) ; consonant
844 ("$(7#!(B-$(7#J#K#L#M!"!#(B" "w" ?0) ; 844 ("$(7#!(B-$(7#J#K#L#M!"!#(B" "w" ?0) ;
845 ("$(7$!(B-$(7$e(B" "w" ?0) ; 845 ("$(7$!(B-$(7$e(B" "w" ?0) ;
846 ("$(7%!(B-$(7%u(B" "w" ?0) ; 846 ("$(7%!(B-$(7%u(B" "w" ?0) ;
847 ("$(7"S"["\"]"^"a(B" "w" ?2) ; upper vowel 847 ("$(7"S"["\"]"^"a(B" "w" ?2) ; upper vowel
848 ("$(7"_"c"d"g"h"i"j"k"l(B" "w" ?2) ; upper modifier 848 ("$(7"_"c"d"g"h"i"j"k"l(B" "w" ?2) ; upper modifier