;; (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
;; (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
;; (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
-(modify-syntax-entry ?\\e$A!2\e(B "(\e$A!3\e(B")
-(modify-syntax-entry ?\\e$A!4\e(B "(\e$A!5\e(B")
-(modify-syntax-entry ?\\e$A!6\e(B "(\e$A!7\e(B")
-(modify-syntax-entry ?\\e$A!8\e(B "(\e$A!9\e(B")
-(modify-syntax-entry ?\\e$A!:\e(B "(\e$A!;\e(B")
-(modify-syntax-entry ?\\e$A!<\e(B "(\e$A!=\e(B")
-(modify-syntax-entry ?\\e$A!>\e(B "(\e$A!?\e(B")
-(modify-syntax-entry ?\\e$A!3\e(B ")\e$A!2\e(B")
-(modify-syntax-entry ?\\e$A!5\e(B ")\e$A!4\e(B")
-(modify-syntax-entry ?\\e$A!7\e(B ")\e$A!6\e(B")
-(modify-syntax-entry ?\\e$A!9\e(B ")\e$A!8\e(B")
-(modify-syntax-entry ?\\e$A!;\e(B ")\e$A!:\e(B")
-(modify-syntax-entry ?\\e$A!=\e(B ")\e$A!<\e(B")
-(modify-syntax-entry ?\\e$A!?\e(B ")\e$A!>\e(B")
-;; Unicode equivalents of above
-(modify-syntax-entry ?\\e$,2=T\e(B "(\e$,2=U\e(B")
-(modify-syntax-entry ?\\e$,2=H\e(B "(\e$,2=I\e(B")
-(modify-syntax-entry ?\\e$,2=J\e(B "(\e$,2=K\e(B")
-(modify-syntax-entry ?\\e$,2=L\e(B "(\e$,2=M\e(B")
-(modify-syntax-entry ?\\e$,2=N\e(B "(\e$,2=O\e(B")
-(modify-syntax-entry ?\\e$,2=V\e(B "(\e$,2=W\e(B")
-(modify-syntax-entry ?\\e$,2=P\e(B "(\e$,2=Q\e(B")
-(modify-syntax-entry ?\\e$,2=U\e(B ")\e$,2=T\e(B")
-(modify-syntax-entry ?\\e$,2=I\e(B ")\e$,2=H\e(B")
-(modify-syntax-entry ?\\e$,2=K\e(B ")\e$,2=J\e(B")
-(modify-syntax-entry ?\\e$,2=M\e(B ")\e$,2=L\e(B")
-(modify-syntax-entry ?\\e$,2=O\e(B ")\e$,2=N\e(B")
-(modify-syntax-entry ?\\e$,2=W\e(B ")\e$,2=V\e(B")
-(modify-syntax-entry ?\\e$,2=Q\e(B ")\e$,2=P\e(B")
+(modify-syntax-entry ?\〔 "(〕")
+(modify-syntax-entry ?\〈 "(〉")
+(modify-syntax-entry ?\《 "(》")
+(modify-syntax-entry ?\「 "(」")
+(modify-syntax-entry ?\『 "(』")
+(modify-syntax-entry ?\〖 "(〗")
+(modify-syntax-entry ?\【 "(】")
+(modify-syntax-entry ?\〕 ")〔")
+(modify-syntax-entry ?\〉 ")〈")
+(modify-syntax-entry ?\》 ")《")
+(modify-syntax-entry ?\」 ")「")
+(modify-syntax-entry ?\』 ")『")
+(modify-syntax-entry ?\〗 ")〖")
+(modify-syntax-entry ?\】 ")【")
;; (modify-category-entry (make-char 'chinese-gb2312) ?c)
;; (modify-category-entry (make-char 'chinese-gb2312) ?\|)
;; Cyrillic character set (ISO-8859-5)
(modify-syntax-entry (decode-char 'iso-8859-5 160) " ")
-(modify-syntax-entry ?\e,L-\e(B ".")
-(modify-syntax-entry ?\e,Lp\e(B ".")
-(modify-syntax-entry ?\e,L}\e(B ".")
+(modify-syntax-entry ? ".")
+(modify-syntax-entry ?№ ".")
+(modify-syntax-entry ?§ ".")
(let ((tbl (standard-case-table)))
- (set-case-syntax-pair ?\e,L!\e(B ?\e,Lq\e(B tbl)
- (set-case-syntax-pair ?\e,L"\e(B ?\e,Lr\e(B tbl)
- (set-case-syntax-pair ?\e,L#\e(B ?\e,Ls\e(B tbl)
- (set-case-syntax-pair ?\e,L$\e(B ?\e,Lt\e(B tbl)
- (set-case-syntax-pair ?\e,L%\e(B ?\e,Lu\e(B tbl)
- (set-case-syntax-pair ?\e,L&\e(B ?\e,Lv\e(B tbl)
- (set-case-syntax-pair ?\e,L'\e(B ?\e,Lw\e(B tbl)
- (set-case-syntax-pair ?\e,L(\e(B ?\e,Lx\e(B tbl)
- (set-case-syntax-pair ?\e,L)\e(B ?\e,Ly\e(B tbl)
- (set-case-syntax-pair ?\e,L*\e(B ?\e,Lz\e(B tbl)
- (set-case-syntax-pair ?\e,L+\e(B ?\e,L{\e(B tbl)
- (set-case-syntax-pair ?\e,L,\e(B ?\e,L|\e(B tbl)
- (set-case-syntax-pair ?\e,L.\e(B ?\e,L~\e(B tbl)
- (set-case-syntax-pair ?\e,L/\e(B ?\e,L\7f\e(B tbl)
- (set-case-syntax-pair ?\e,L0\e(B ?\e,LP\e(B tbl)
- (set-case-syntax-pair ?\e,L1\e(B ?\e,LQ\e(B tbl)
- (set-case-syntax-pair ?\e,L2\e(B ?\e,LR\e(B tbl)
- (set-case-syntax-pair ?\e,L3\e(B ?\e,LS\e(B tbl)
- (set-case-syntax-pair ?\e,L4\e(B ?\e,LT\e(B tbl)
- (set-case-syntax-pair ?\e,L5\e(B ?\e,LU\e(B tbl)
- (set-case-syntax-pair ?\e,L6\e(B ?\e,LV\e(B tbl)
- (set-case-syntax-pair ?\e,L7\e(B ?\e,LW\e(B tbl)
- (set-case-syntax-pair ?\e,L8\e(B ?\e,LX\e(B tbl)
- (set-case-syntax-pair ?\e,L9\e(B ?\e,LY\e(B tbl)
- (set-case-syntax-pair ?\e,L:\e(B ?\e,LZ\e(B tbl)
- (set-case-syntax-pair ?\e,L;\e(B ?\e,L[\e(B tbl)
- (set-case-syntax-pair ?\e,L<\e(B ?\e,L\\e(B tbl)
- (set-case-syntax-pair ?\e,L=\e(B ?\e,L]\e(B tbl)
- (set-case-syntax-pair ?\e,L>\e(B ?\e,L^\e(B tbl)
- (set-case-syntax-pair ?\e,L?\e(B ?\e,L_\e(B tbl)
- (set-case-syntax-pair ?\e,L@\e(B ?\e,L`\e(B tbl)
- (set-case-syntax-pair ?\e,LA\e(B ?\e,La\e(B tbl)
- (set-case-syntax-pair ?\e,LB\e(B ?\e,Lb\e(B tbl)
- (set-case-syntax-pair ?\e,LC\e(B ?\e,Lc\e(B tbl)
- (set-case-syntax-pair ?\e,LD\e(B ?\e,Ld\e(B tbl)
- (set-case-syntax-pair ?\e,LE\e(B ?\e,Le\e(B tbl)
- (set-case-syntax-pair ?\e,LF\e(B ?\e,Lf\e(B tbl)
- (set-case-syntax-pair ?\e,LG\e(B ?\e,Lg\e(B tbl)
- (set-case-syntax-pair ?\e,LH\e(B ?\e,Lh\e(B tbl)
- (set-case-syntax-pair ?\e,LI\e(B ?\e,Li\e(B tbl)
- (set-case-syntax-pair ?\e,LJ\e(B ?\e,Lj\e(B tbl)
- (set-case-syntax-pair ?\e,LK\e(B ?\e,Lk\e(B tbl)
- (set-case-syntax-pair ?\e,LL\e(B ?\e,Ll\e(B tbl)
- (set-case-syntax-pair ?\e,LM\e(B ?\e,Lm\e(B tbl)
- (set-case-syntax-pair ?\e,LN\e(B ?\e,Ln\e(B tbl)
- (set-case-syntax-pair ?\e,LO\e(B ?\e,Lo\e(B tbl)
- (set-case-syntax-pair ?\e$,1(!\e(B ?\e$,1(q\e(B tbl)
- (set-case-syntax-pair ?\e$,1("\e(B ?\e$,1(r\e(B tbl)
- (set-case-syntax-pair ?\e$,1(#\e(B ?\e$,1(s\e(B tbl)
- (set-case-syntax-pair ?\e$,1($\e(B ?\e$,1(t\e(B tbl)
- (set-case-syntax-pair ?\e$,1(%\e(B ?\e$,1(u\e(B tbl)
- (set-case-syntax-pair ?\e$,1(&\e(B ?\e$,1(v\e(B tbl)
- (set-case-syntax-pair ?\e$,1('\e(B ?\e$,1(w\e(B tbl)
- (set-case-syntax-pair ?\e$,1((\e(B ?\e$,1(x\e(B tbl)
- (set-case-syntax-pair ?\e$,1()\e(B ?\e$,1(y\e(B tbl)
- (set-case-syntax-pair ?\e$,1(*\e(B ?\e$,1(z\e(B tbl)
- (set-case-syntax-pair ?\e$,1(+\e(B ?\e$,1({\e(B tbl)
- (set-case-syntax-pair ?\e$,1(,\e(B ?\e$,1(|\e(B tbl)
- (set-case-syntax-pair ?\e$,1(.\e(B ?\e$,1(~\e(B tbl)
- (set-case-syntax-pair ?\e$,1(/\e(B ?\e$,1(\7f\e(B tbl)
- (set-case-syntax-pair ?\e$,1(0\e(B ?\e$,1(P\e(B tbl)
- (set-case-syntax-pair ?\e$,1(1\e(B ?\e$,1(Q\e(B tbl)
- (set-case-syntax-pair ?\e$,1(2\e(B ?\e$,1(R\e(B tbl)
- (set-case-syntax-pair ?\e$,1(3\e(B ?\e$,1(S\e(B tbl)
- (set-case-syntax-pair ?\e$,1(4\e(B ?\e$,1(T\e(B tbl)
- (set-case-syntax-pair ?\e$,1(5\e(B ?\e$,1(U\e(B tbl)
- (set-case-syntax-pair ?\e$,1(6\e(B ?\e$,1(V\e(B tbl)
- (set-case-syntax-pair ?\e$,1(7\e(B ?\e$,1(W\e(B tbl)
- (set-case-syntax-pair ?\e$,1(8\e(B ?\e$,1(X\e(B tbl)
- (set-case-syntax-pair ?\e$,1(9\e(B ?\e$,1(Y\e(B tbl)
- (set-case-syntax-pair ?\e$,1(:\e(B ?\e$,1(Z\e(B tbl)
- (set-case-syntax-pair ?\e$,1(;\e(B ?\e$,1([\e(B tbl)
- (set-case-syntax-pair ?\e$,1(<\e(B ?\e$,1(\\e(B tbl)
- (set-case-syntax-pair ?\e$,1(=\e(B ?\e$,1(]\e(B tbl)
- (set-case-syntax-pair ?\e$,1(>\e(B ?\e$,1(^\e(B tbl)
- (set-case-syntax-pair ?\e$,1(?\e(B ?\e$,1(_\e(B tbl)
- (set-case-syntax-pair ?\e$,1(@\e(B ?\e$,1(`\e(B tbl)
- (set-case-syntax-pair ?\e$,1(A\e(B ?\e$,1(a\e(B tbl)
- (set-case-syntax-pair ?\e$,1(B\e(B ?\e$,1(b\e(B tbl)
- (set-case-syntax-pair ?\e$,1(C\e(B ?\e$,1(c\e(B tbl)
- (set-case-syntax-pair ?\e$,1(D\e(B ?\e$,1(d\e(B tbl)
- (set-case-syntax-pair ?\e$,1(E\e(B ?\e$,1(e\e(B tbl)
- (set-case-syntax-pair ?\e$,1(F\e(B ?\e$,1(f\e(B tbl)
- (set-case-syntax-pair ?\e$,1(G\e(B ?\e$,1(g\e(B tbl)
- (set-case-syntax-pair ?\e$,1(H\e(B ?\e$,1(h\e(B tbl)
- (set-case-syntax-pair ?\e$,1(I\e(B ?\e$,1(i\e(B tbl)
- (set-case-syntax-pair ?\e$,1(J\e(B ?\e$,1(j\e(B tbl)
- (set-case-syntax-pair ?\e$,1(K\e(B ?\e$,1(k\e(B tbl)
- (set-case-syntax-pair ?\e$,1(L\e(B ?\e$,1(l\e(B tbl)
- (set-case-syntax-pair ?\e$,1(M\e(B ?\e$,1(m\e(B tbl)
- (set-case-syntax-pair ?\e$,1(N\e(B ?\e$,1(n\e(B tbl)
- (set-case-syntax-pair ?\e$,1(O\e(B ?\e$,1(o\e(B tbl))
+ (set-case-syntax-pair ?Ё ?ё tbl)
+ (set-case-syntax-pair ?Ђ ?ђ tbl)
+ (set-case-syntax-pair ?Ѓ ?ѓ tbl)
+ (set-case-syntax-pair ?Є ?є tbl)
+ (set-case-syntax-pair ?Ѕ ?ѕ tbl)
+ (set-case-syntax-pair ?І ?і tbl)
+ (set-case-syntax-pair ?Ї ?ї tbl)
+ (set-case-syntax-pair ?Ј ?ј tbl)
+ (set-case-syntax-pair ?Љ ?љ tbl)
+ (set-case-syntax-pair ?Њ ?њ tbl)
+ (set-case-syntax-pair ?Ћ ?ћ tbl)
+ (set-case-syntax-pair ?Ќ ?ќ tbl)
+ (set-case-syntax-pair ?Ў ?ў tbl)
+ (set-case-syntax-pair ?Џ ?џ tbl)
+ (set-case-syntax-pair ?А ?а tbl)
+ (set-case-syntax-pair ?Б ?б tbl)
+ (set-case-syntax-pair ?В ?в tbl)
+ (set-case-syntax-pair ?Г ?г tbl)
+ (set-case-syntax-pair ?Д ?д tbl)
+ (set-case-syntax-pair ?Е ?е tbl)
+ (set-case-syntax-pair ?Ж ?ж tbl)
+ (set-case-syntax-pair ?З ?з tbl)
+ (set-case-syntax-pair ?И ?и tbl)
+ (set-case-syntax-pair ?Й ?й tbl)
+ (set-case-syntax-pair ?К ?к tbl)
+ (set-case-syntax-pair ?Л ?л tbl)
+ (set-case-syntax-pair ?М ?м tbl)
+ (set-case-syntax-pair ?Н ?н tbl)
+ (set-case-syntax-pair ?О ?о tbl)
+ (set-case-syntax-pair ?П ?п tbl)
+ (set-case-syntax-pair ?Р ?р tbl)
+ (set-case-syntax-pair ?С ?с tbl)
+ (set-case-syntax-pair ?Т ?т tbl)
+ (set-case-syntax-pair ?У ?у tbl)
+ (set-case-syntax-pair ?Ф ?ф tbl)
+ (set-case-syntax-pair ?Х ?х tbl)
+ (set-case-syntax-pair ?Ц ?ц tbl)
+ (set-case-syntax-pair ?Ч ?ч tbl)
+ (set-case-syntax-pair ?Ш ?ш tbl)
+ (set-case-syntax-pair ?Щ ?щ tbl)
+ (set-case-syntax-pair ?Ъ ?ъ tbl)
+ (set-case-syntax-pair ?Ы ?ы tbl)
+ (set-case-syntax-pair ?Ь ?ь tbl)
+ (set-case-syntax-pair ?Э ?э tbl)
+ (set-case-syntax-pair ?Ю ?ю tbl)
+ (set-case-syntax-pair ?Я ?я tbl))
;; Devanagari character set
;;; Commented out since the categories appear not to be used anywhere
;;; and word syntax is the default.
;; (let ((deflist '(;; chars syntax category
-;; ("\e$(5!!!"!#\e(B" "w" ?7) ; vowel-modifying diacritical mark
+;; ("" "w" ?7) ; vowel-modifying diacritical mark
;; ; chandrabindu, anuswar, visarga
-;; ("\e$(5!$\e(B-\e$(5!2\e(B" "w" ?1) ; independent vowel
-;; ("\e$(5!3\e(B-\e$(5!X\e(B" "w" ?0) ; consonant
-;; ("\e$(5!Z\e(B-\e$(5!g\e(B" "w" ?8) ; matra
-;; ("\e$(5!q\e(B-\e$(5!z\e(B" "w" ?6) ; digit
+;; ("-" "w" ?1) ; independent vowel
+;; ("-" "w" ?0) ; consonant
+;; ("-" "w" ?8) ; matra
+;; ("-" "w" ?6) ; digit
;; ;; Unicode equivalents
-;; ("\e$,15A5B5C\e(B" "w" ?7) ; vowel-modifying diacritical mark
+;; ("ँंः" "w" ?7) ; vowel-modifying diacritical mark
;; ; chandrabindu, anuswar, visarga
-;; ("\e$,15E\e(B-\e$,15M\e(B" "w" ?1) ; independent vowel
-;; ("\e$,15U\e(B-\e$,15y\e(B" "w" ?0) ; consonant
-;; ("\e$,15~\e(B-\e$,16)\e(B" "w" ?8) ; matra
-;; ("\e$,16F\e(B-\e$,16O\e(B" "w" ?6) ; digit
+;; ("अ-ऍ" "w" ?1) ; independent vowel
+;; ("क-ह" "w" ?0) ; consonant
+;; ("ा-ॉ" "w" ?8) ; matra
+;; ("०-९" "w" ?6) ; digit
;; ))
;; elm chars len syntax category to ch i)
;; (while deflist
;; (modify-category-entry (make-char 'ethiopic) ?e)
;; (modify-syntax-entry (make-char 'ethiopic) "w")
(modify-category-entry '(#x1200 . #x137b) ?e)
-(let ((chars '(?\e$(3$h\e(B ?\e$(3$i\e(B ?\e$(3$j\e(B ?\e$(3$k\e(B ?\e$(3$l\e(B ?\e$(3$m\e(B ?\e$(3$n\e(B ?\e$(3$o\e(B ?\e$(3%i\e(B ?\e$(3%t\e(B ?\e$(3%u\e(B ?\e$(3%v\e(B ?\e$(3%w\e(B ?\e$(3%x\e(B
+(let ((chars '(? ? ? ? ? ? ? ? ? ? ? ? ? ?
;; Unicode equivalents of the above:
- ?\e$,1Q!\e(B ?\e$,1Q"\e(B ?\e$,1Q#\e(B ?\e$,1Q$\e(B ?\e$,1Q%\e(B ?\e$,1Q&\e(B ?\e$,1Q'\e(B ?\e$,1Q(\e(B ?\e$,3op\e(B ?\e$,3o{\e(B ?\e$,3o|\e(B ?\e$,3o}\e(B ?\e$,3o~\e(B ?\e$,3o\7f\e(B)))
+ ?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ?ﷰ ?ﷻ ?﷼ ?﷽ ?﷾ ?﷿)))
(while chars
(modify-syntax-entry (car chars) ".")
(setq chars (cdr chars))))
;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
;; (setq c (1+ c))))
;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
-;; (modify-syntax-entry ?\e,F7\e(B ".")
-;; (modify-syntax-entry ?\e,F;\e(B ".")
-;; (modify-syntax-entry ?\e,F=\e(B ".")
+;; (modify-syntax-entry ?· ".")
+;; (modify-syntax-entry ?» ".")
+;; (modify-syntax-entry ?½ ".")
(let ((tbl (standard-case-table)))
;; Fixme: non-letter syntax copied from latin-1, but that's dubious
;; in several cases.
- (set-case-syntax ?\e,F!\e(B "." tbl)
- (set-case-syntax ?\e,F"\e(B "." tbl)
- (set-case-syntax ?\e,F&\e(B "." tbl)
- (set-case-syntax ?\e,F&\e(B "_" tbl)
- (set-case-syntax ?\e,F'\e(B "." tbl)
- (set-case-syntax ?\e,F)\e(B "_" tbl)
- (set-case-syntax ?\e,F+\e(B "." tbl)
- (set-case-syntax ?\e,F,\e(B "_" tbl)
- (set-case-syntax ?\e,F-\e(B "_" tbl)
- (set-case-syntax ?\e,F/\e(B "." tbl)
- (set-case-syntax ?\e,F0\e(B "_" tbl)
- (set-case-syntax ?\e,F1\e(B "_" tbl)
-;; (set-case-syntax ?\e,F7\e(B "_" tbl)
-;; (set-case-syntax ?\e,F=\e(B "_" tbl)
- (set-case-syntax-pair ?\e,FA\e(B ?\e,Fa\e(B tbl)
- (set-case-syntax-pair ?\e,FB\e(B ?\e,Fb\e(B tbl)
- (set-case-syntax-pair ?\e,FC\e(B ?\e,Fc\e(B tbl)
- (set-case-syntax-pair ?\e,FD\e(B ?\e,Fd\e(B tbl)
- (set-case-syntax-pair ?\e,FE\e(B ?\e,Fe\e(B tbl)
- (set-case-syntax-pair ?\e,FF\e(B ?\e,Ff\e(B tbl)
- (set-case-syntax-pair ?\e,FG\e(B ?\e,Fg\e(B tbl)
- (set-case-syntax-pair ?\e,FH\e(B ?\e,Fh\e(B tbl)
- (set-case-syntax-pair ?\e,FI\e(B ?\e,Fi\e(B tbl)
- (set-case-syntax-pair ?\e,FJ\e(B ?\e,Fj\e(B tbl)
- (set-case-syntax-pair ?\e,FK\e(B ?\e,Fk\e(B tbl)
- (set-case-syntax-pair ?\e,FL\e(B ?\e,Fl\e(B tbl)
- (set-case-syntax-pair ?\e,FM\e(B ?\e,Fm\e(B tbl)
- (set-case-syntax-pair ?\e,FN\e(B ?\e,Fn\e(B tbl)
- (set-case-syntax-pair ?\e,FO\e(B ?\e,Fo\e(B tbl)
- (set-case-syntax-pair ?\e,FP\e(B ?\e,Fp\e(B tbl)
- (set-case-syntax-pair ?\e,FQ\e(B ?\e,Fq\e(B tbl)
- (set-case-syntax-pair ?\e,FS\e(B ?\e,Fs\e(B tbl)
- (set-case-syntax-pair ?\e,FT\e(B ?\e,Ft\e(B tbl)
- (set-case-syntax-pair ?\e,FU\e(B ?\e,Fu\e(B tbl)
- (set-case-syntax-pair ?\e,FV\e(B ?\e,Fv\e(B tbl)
- (set-case-syntax-pair ?\e,FW\e(B ?\e,Fw\e(B tbl)
- (set-case-syntax-pair ?\e,FX\e(B ?\e,Fx\e(B tbl)
- (set-case-syntax-pair ?\e,FY\e(B ?\e,Fy\e(B tbl)
- (set-case-syntax-pair ?\e,FZ\e(B ?\e,Fz\e(B tbl)
- (set-case-syntax-pair ?\e,F[\e(B ?\e,F{\e(B tbl)
- (set-case-syntax-pair ?\e,F?\e(B ?\e,F~\e(B tbl)
- (set-case-syntax-pair ?\e,F>\e(B ?\e,F}\e(B tbl)
- (set-case-syntax-pair ?\e,F<\e(B ?\e,F|\e(B tbl)
- (set-case-syntax-pair ?\e,F6\e(B ?\e,F\\e(B tbl)
- (set-case-syntax-pair ?\e,F8\e(B ?\e,F]\e(B tbl)
- (set-case-syntax-pair ?\e,F9\e(B ?\e,F^\e(B tbl)
- (set-case-syntax-pair ?\e,F:\e(B ?\e,F_\e(B tbl)
- ;; Unicode equivalents
- (set-case-syntax-pair ?\e$,1&q\e(B ?\e$,1'1\e(B tbl)
- (set-case-syntax-pair ?\e$,1&r\e(B ?\e$,1'2\e(B tbl)
- (set-case-syntax-pair ?\e$,1&s\e(B ?\e$,1'3\e(B tbl)
- (set-case-syntax-pair ?\e$,1&t\e(B ?\e$,1'4\e(B tbl)
- (set-case-syntax-pair ?\e$,1&u\e(B ?\e$,1'5\e(B tbl)
- (set-case-syntax-pair ?\e$,1&v\e(B ?\e$,1'6\e(B tbl)
- (set-case-syntax-pair ?\e$,1&w\e(B ?\e$,1'7\e(B tbl)
- (set-case-syntax-pair ?\e$,1&x\e(B ?\e$,1'8\e(B tbl)
- (set-case-syntax-pair ?\e$,1&y\e(B ?\e$,1'9\e(B tbl)
- (set-case-syntax-pair ?\e$,1&z\e(B ?\e$,1':\e(B tbl)
- (set-case-syntax-pair ?\e$,1&{\e(B ?\e$,1';\e(B tbl)
- (set-case-syntax-pair ?\e$,1&|\e(B ?\e$,1'<\e(B tbl)
- (set-case-syntax-pair ?\e$,1&}\e(B ?\e$,1'=\e(B tbl)
- (set-case-syntax-pair ?\e$,1&~\e(B ?\e$,1'>\e(B tbl)
- (set-case-syntax-pair ?\e$,1&\7f\e(B ?\e$,1'?\e(B tbl)
- (set-case-syntax-pair ?\e$,1' \e(B ?\e$,1'@\e(B tbl)
- (set-case-syntax-pair ?\e$,1'!\e(B ?\e$,1'A\e(B tbl)
- (set-case-syntax-pair ?\e$,1'#\e(B ?\e$,1'C\e(B tbl)
- (set-case-syntax-pair ?\e$,1'$\e(B ?\e$,1'D\e(B tbl)
- (set-case-syntax-pair ?\e$,1'%\e(B ?\e$,1'E\e(B tbl)
- (set-case-syntax-pair ?\e$,1'&\e(B ?\e$,1'F\e(B tbl)
- (set-case-syntax-pair ?\e$,1''\e(B ?\e$,1'G\e(B tbl)
- (set-case-syntax-pair ?\e$,1'(\e(B ?\e$,1'H\e(B tbl)
- (set-case-syntax-pair ?\e$,1')\e(B ?\e$,1'I\e(B tbl)
- (set-case-syntax-pair ?\e$,1'*\e(B ?\e$,1'J\e(B tbl)
- (set-case-syntax-pair ?\e$,1'+\e(B ?\e$,1'K\e(B tbl)
- (set-case-syntax-pair ?\e$,1&o\e(B ?\e$,1'N\e(B tbl)
- (set-case-syntax-pair ?\e$,1&n\e(B ?\e$,1'M\e(B tbl)
- (set-case-syntax-pair ?\e$,1&l\e(B ?\e$,1'L\e(B tbl)
- (set-case-syntax-pair ?\e$,1&f\e(B ?\e$,1',\e(B tbl)
- (set-case-syntax-pair ?\e$,1&h\e(B ?\e$,1'-\e(B tbl)
- (set-case-syntax-pair ?\e$,1&i\e(B ?\e$,1'.\e(B tbl)
- (set-case-syntax-pair ?\e$,1&j\e(B ?\e$,1'/\e(B tbl))
+ (set-case-syntax ?‘ "." tbl)
+ (set-case-syntax ?’ "." tbl)
+ (set-case-syntax ?¦ "." tbl)
+ (set-case-syntax ?¦ "_" tbl)
+ (set-case-syntax ?§ "." tbl)
+ (set-case-syntax ?© "_" tbl)
+ (set-case-syntax ?\« "." tbl)
+ (set-case-syntax ?¬ "_" tbl)
+ (set-case-syntax ? "_" tbl)
+ (set-case-syntax ?― "." tbl)
+ (set-case-syntax ?° "_" tbl)
+ (set-case-syntax ?± "_" tbl)
+;; (set-case-syntax ?· "_" tbl)
+;; (set-case-syntax ?½ "_" tbl)
+ (set-case-syntax-pair ?Α ?α tbl)
+ (set-case-syntax-pair ?Β ?β tbl)
+ (set-case-syntax-pair ?Γ ?γ tbl)
+ (set-case-syntax-pair ?Δ ?δ tbl)
+ (set-case-syntax-pair ?Ε ?ε tbl)
+ (set-case-syntax-pair ?Ζ ?ζ tbl)
+ (set-case-syntax-pair ?Η ?η tbl)
+ (set-case-syntax-pair ?Θ ?θ tbl)
+ (set-case-syntax-pair ?Ι ?ι tbl)
+ (set-case-syntax-pair ?Κ ?κ tbl)
+ (set-case-syntax-pair ?Λ ?λ tbl)
+ (set-case-syntax-pair ?Μ ?μ tbl)
+ (set-case-syntax-pair ?Ν ?ν tbl)
+ (set-case-syntax-pair ?Ξ ?ξ tbl)
+ (set-case-syntax-pair ?Ο ?ο tbl)
+ (set-case-syntax-pair ?Π ?π tbl)
+ (set-case-syntax-pair ?Ρ ?ρ tbl)
+ (set-case-syntax-pair ?Σ ?σ tbl)
+ (set-case-syntax-pair ?Τ ?τ tbl)
+ (set-case-syntax-pair ?Υ ?υ tbl)
+ (set-case-syntax-pair ?Φ ?φ tbl)
+ (set-case-syntax-pair ?Χ ?χ tbl)
+ (set-case-syntax-pair ?Ψ ?ψ tbl)
+ (set-case-syntax-pair ?Ω ?ω tbl)
+ (set-case-syntax-pair ?Ϊ ?ϊ tbl)
+ (set-case-syntax-pair ?Ϋ ?ϋ tbl)
+ (set-case-syntax-pair ?Ώ ?ώ tbl)
+ (set-case-syntax-pair ?Ύ ?ύ tbl)
+ (set-case-syntax-pair ?Ό ?ό tbl)
+ (set-case-syntax-pair ?Ά ?ά tbl)
+ (set-case-syntax-pair ?Έ ?έ tbl)
+ (set-case-syntax-pair ?Ή ?ή tbl)
+ (set-case-syntax-pair ?Ί ?ί tbl))
;; Hebrew character set (ISO-8859-8)
;;; and word syntax is the default.
;; (let ((deflist ;
;; '(;; chars syntax category
-;; ("\e(5!"#\e(B" "w" ?7) ; vowel-modifying diacritical mark
+;; ("" "w" ?7) ; vowel-modifying diacritical mark
;; ; chandrabindu, anuswar, visarga
-;; ("\e(5$\e(B-\e(52\e(B" "w" ?1) ; base (independent) vowel
-;; ("\e(53\e(B-\e(5X\e(B" "w" ?0) ; consonant
-;; ("\e(5Z\e(B-\e(5g\e(B" "w" ?8) ; matra
-;; ("\e(5q\e(B-\e(5z\e(B" "w" ?6) ; digit
+;; ("-" "w" ?1) ; base (independent) vowel
+;; ("-" "w" ?0) ; consonant
+;; ("-" "w" ?8) ; matra
+;; ("-" "w" ?6) ; digit
;; ))
;; elm chars len syntax category to ch i)
;; (while deflist
;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
-;; (let ((chars '(?\e$B!<\e(B ?\e$B!+\e(B ?\e$B!,\e(B ?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
+;; (let ((chars '(? ? ? ? ? ? ? ? ? ? ? ?)))
;; (while chars
;; (modify-syntax-entry (car chars) "w")
;; (setq chars (cdr chars))))
(decode-char 'japanese-jisx0208 #x227E)) "_")
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)
(decode-char 'japanese-jisx0208 #x287E)) "_")
-(modify-syntax-entry ?\\e$B!J\e(B "(\e$B!K\e(B")
-(modify-syntax-entry ?\\e$B!N\e(B "(\e$B!O\e(B")
-(modify-syntax-entry ?\\e$B!P\e(B "(\e$B!Q\e(B")
-(modify-syntax-entry ?\\e$B!V\e(B "(\e$B!W\e(B")
-(modify-syntax-entry ?\\e$B!X\e(B "(\e$B!Y\e(B")
-(modify-syntax-entry ?\\e$B!K\e(B ")\e$B!J\e(B")
-(modify-syntax-entry ?\\e$B!O\e(B ")\e$B!N\e(B")
-(modify-syntax-entry ?\\e$B!Q\e(B ")\e$B!P\e(B")
-(modify-syntax-entry ?\\e$B!W\e(B ")\e$B!V\e(B")
-(modify-syntax-entry ?\\e$B!Y\e(B ")\e$B!X\e(B")
+(modify-syntax-entry ?\ "(")
+(modify-syntax-entry ?\ "(")
+(modify-syntax-entry ?\ "(")
+(modify-syntax-entry ?\ "(")
+(modify-syntax-entry ?\ "(")
+(modify-syntax-entry ?\ ")")
+(modify-syntax-entry ?\ ")")
+(modify-syntax-entry ?\ ")")
+(modify-syntax-entry ?\ ")")
+(modify-syntax-entry ?\ ")")
;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
;; (while (< row 127)
;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
;; (setq row (1+ row))))
-(modify-category-entry ?\e$B!<\e(B ?K)
-(let ((chars '(?\e$B!+\e(B ?\e$B!,\e(B)))
+(modify-category-entry ? ?K)
+(let ((chars '(? ?)))
(while chars
(modify-category-entry (car chars) ?K)
(modify-category-entry (car chars) ?H)
(setq chars (cdr chars))))
-(let ((chars '(?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
+(let ((chars '(? ? ? ? ? ? ? ? ?)))
(while chars
(modify-category-entry (car chars) ?C)
(setq chars (cdr chars))))
;; JISX0201-Kana
;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
-(let ((chars '(?\e(I!\e(B ?\e(I$\e(B ?\e(I%\e(B
+(let ((chars '(?｡ ?､ ?･
;; Unicode:
- ?\e$,3sa\e(B ?\e$,3sd\e(B ?\e$,3se\e(B)))
+ ?｡ ?､ ?･)))
(while chars
(modify-syntax-entry (car chars) ".")
(setq chars (cdr chars))))
-(modify-syntax-entry ?\\e(I"\e(B "(\e(I#\e(B")
-(modify-syntax-entry ?\\e(I#\e(B "(\e(I"\e(B")
+(modify-syntax-entry ?\｢ "(｣")
+(modify-syntax-entry ?\｣ "(｢")
;; Korean character set (KSC5601)
(modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))
(let ((deflist '(;; chars syntax category
- ("\e(1!\e(B-\e(1N\e(B" "w" ?0) ; consonant
- ("\e(1PRS]`\e(B-\e(1d\e(B" "w" ?1) ; vowel base
- ("\e(1QT\e(B-\e(1W[m\e(B" "w" ?2) ; vowel upper
- ("\e(1XY\e(B" "w" ?3) ; vowel lower
- ("\e(1h\e(B-\e(1l\e(B" "w" ?4) ; tone mark
- ("\e(1\\e(B" "w" ?9) ; semivowel lower
- ("\e(1p\e(B-\e(1y\e(B" "w" ?6) ; digit
- ("\e(1Of\e(B" "_" ?5) ; symbol
+ ("ກ-ຮ" "w" ?0) ; consonant
+ ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
+ ("ັິ-ືົໍ" "w" ?2) ; vowel upper
+ ("ຸູ" "w" ?3) ; vowel lower
+ ("່-໌" "w" ?4) ; tone mark
+ ("ຼ" "w" ?9) ; semivowel lower
+ ("໐-໙" "w" ?6) ; digit
+ ("ຯໆ" "_" ?5) ; symbol
;; Unicode equivalents
- ("\e$,1D!\e(B-\e$,1DN\e(B" "w" ?0) ; consonant
- ("\e$,1DPDRDSD]D`\e(B-\e$,1Dd\e(B" "w" ?1) ; vowel base
- ("\e$,1DQDT\e(B-\e$,1DWD[Dm\e(B" "w" ?2) ; vowel upper
- ("\e$,1DXDY\e(B" "w" ?3) ; vowel lower
- ("\e$,1Dh\e(B-\e$,1Dk\e(B" "w" ?4) ; tone mark
- ("\e$,1D\D]\e(B" "w" ?9) ; semivowel lower
- ("\e$,1Dp\e(B-\e$,1Dy\e(B" "w" ?6) ; digit
- ("\e$,1DODf\e(B" "_" ?5) ; symbol
+ ("ກ-ຮ" "w" ?0) ; consonant
+ ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
+ ("ັິ-ືົໍ" "w" ?2) ; vowel upper
+ ("ຸູ" "w" ?3) ; vowel lower
+ ("່-໋" "w" ?4) ; tone mark
+ ("ຼຽ" "w" ?9) ; semivowel lower
+ ("໐-໙" "w" ?6) ; digit
+ ("ຯໆ" "_" ?5) ; symbol
))
elm chars len syntax category to ch i)
(while deflist
(modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))
(let ((deflist '(;; chars syntax category
- ("\e,T!\e(B-\e,TCEG\e(B-\e,TN\e(B" "w" ?0) ; consonant
- ("\e,TDFPRS`\e(B-\e,Te\e(B" "w" ?1) ; vowel base
- ("\e,TQT\e(B-\e,TWgn\e(B" "w" ?2) ; vowel upper
- ("\e,TX\e(B-\e,TZ\e(B" "w" ?3) ; vowel lower
- ("\e,Th\e(B-\e,Tm\e(B" "w" ?4) ; tone mark
- ("\e,Tp\e(B-\e,Ty\e(B" "w" ?6) ; digit
- ("\e,TOf_oz{\e(B" "_" ?5) ; symbol
- ;; Unicode equivalents
- ("\e$,1Ba\e(B-\e$,1C#C%C'\e(B-\e$,1C.\e(B" "w" ?0) ; consonant
- ("\e$,1C$C&C0C2C3C@\e(B-\e$,1CE\e(B" "w" ?1) ; vowel base
- ("\e$,1C1C4\e(B-\e$,1C7CGCN\e(B" "w" ?2) ; vowel upper
- ("\e$,1C8\e(B-\e$,1C:\e(B" "w" ?3) ; vowel lower
- ("\e$,1CH\e(B-\e$,1CM\e(B" "w" ?4) ; tone mark
- ("\e$,1CP\e(B-\e$,1CY\e(B" "w" ?6) ; digit
- ("\e$,1C/CFC?COCZC[\e(B" "_" ?5) ; symbol
+ ("ก-รลว-ฮ" "w" ?0) ; consonant
+ ("ฤฦะาำเ-ๅ" "w" ?1) ; vowel base
+ ("ัิ-ื็๎" "w" ?2) ; vowel upper
+ ("ุ-ฺ" "w" ?3) ; vowel lower
+ ("่-ํ" "w" ?4) ; tone mark
+ ("๐-๙" "w" ?6) ; digit
+ ("ฯๆ฿๏๚๛" "_" ?5) ; symbol
))
elm chars len syntax category to ch i)
(while deflist
(modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
(let ((deflist '(;; chars syntax category
- ("\e4\e$(7"!\e0"!\e1\e(B-\e4\e$(7"J\e0"J\e1\e4"K\e0"K\e1\e(B" "w" ?0) ; consonant
- ("\e$(7#!\e(B-\e$(7#J#K#L#M!"!#\e(B" "w" ?0) ;
- ("\e$(7$!\e(B-\e$(7$e\e(B" "w" ?0) ;
- ("\e$(7%!\e(B-\e$(7%u\e(B" "w" ?0) ;
- ("\e$(7"S"["\"]"^"a\e(B" "w" ?2) ; upper vowel
- ("\e$(7"_"c"d"g"h"i"j"k"l\e(B" "w" ?2) ; upper modifier
- ("\e$(7!I"Q"R"U"e!e!g\e(B" "w" ?3) ; lowel vowel/modifier
- ("\e$(7!P\e(B-\e$(7!Y!Z\e(B-\e$(7!c\e(B" "w" ?6) ; digit
- ("\e$(7!;!=\e(B-\e$(7!B!D"`\e(B" "." ?|) ; line-break char
- ("\e$(8!;!=!?!@!A!D"`\e(B" "." ?|) ;
- ("\e$(7!8!;!=\e(B-\e$(7!B!D"`!m!d\e(B" "." ?>) ; prohibition
- ("\e$(8!;!=!?!@!A!D"`\e(B" "." ?>) ;
- ("\e$(7!0\e(B-\e$(7!:!l#R#S"f\e(B" "." ?<) ; prohibition
- ("\e$(7!C!E\e(B-\e$(7!H!J\e(B-\e$(7!O!f!h\e(B-\e$(7!k!n!o#O#P\e(B-\e$(7#`\e(B" "." ?q) ; others
+ ("-" "w" ?0) ; consonant
+ ("-" "w" ?0) ;
+ ("-" "w" ?0) ;
+ ("-" "w" ?0) ;
+ ("" "w" ?2) ; upper vowel
+ ("" "w" ?2) ; upper modifier
+ ("" "w" ?3) ; lowel vowel/modifier
+ ("--" "w" ?6) ; digit
+ ("-" "." ?|) ; line-break char
+ ("" "." ?|) ;
+ ("-" "." ?>) ; prohibition
+ ("" "." ?>) ;
+ ("-" "." ?<) ; prohibition
+ ("----" "." ?q) ; others
;; Unicode version (not complete)
- ("\e$,1F \e(B-\e$,1FIFJ\e(B" "w" ?0) ; consonant
- ("\e$,1Fp\e(B-\e$,1G9G:G;G<\e(B" "w" ?0) ;
- ("\e$,1FRFZF[F\F]F`\e(B" "w" ?2) ; upper vowel
- ("\e$,1F^FbFcFfFgFhFiFjFk\e(B" "w" ?2) ; upper modifier
- ("\e$,1EYFPFQFTFdEuEw\e(B" "w" ?3) ; lowel vowel/modifier
- ("\e$,1E`\e(B-\e$,1EiEj\e(B-\e$,1Es\e(B" "w" ?6) ; digit
- ("\e$,1EKEM\e(B-\e$,1ERETF_\e(B" "." ?|) ; line-break char
- ("\e$,1EHEKEM\e(B-\e$,1ERETF_E}Et\e(B" "." ?>) ; prohibition
- ("\e$,1E@\e(B-\e$,1EJE|GAGBFe\e(B" "." ?<) ; prohibition
- ("\e$,1ESEU\e(B-\e$,1EXEZ\e(B-\e$,1E_EvEx\e(B-\e$,1E{E~E\7fG>G?\e(B-\e$,1GO\e(B" "." ?q) ; others
+ ("ཀ-ཀྵཪ" "w" ?0) ; consonant
+ ("ྐ-ྐྵྺྻྼ" "w" ?0) ;
+ ("ིེཻོཽྀ" "w" ?2) ; upper vowel
+ ("ཾྂྃ྆྇ྈྉྊྋ" "w" ?2) ; upper modifier
+ ("྄ཱུ༙༵༷" "w" ?3) ; lowel vowel/modifier
+ ("༠-༩༪-༳" "w" ?6) ; digit
+ ("་།-༒༔ཿ" "." ?|) ; line-break char
+ ("༈་།-༒༔ཿ༽༴" "." ?>) ; prohibition
+ ("ༀ-༊༼࿁࿂྅" "." ?<) ; prohibition
+ ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others
))
elm chars len syntax category to ch i)
(while deflist
(set-case-syntax-pair
(decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
(setq c (1+ c)))
- (set-case-syntax-pair ?\e$,1 R\e(B ?\e$,1 S\e(B tbl)
- (set-case-syntax-pair ?\e$,1 T\e(B ?\e$,1 U\e(B tbl)
- (set-case-syntax-pair ?\e$,1 V\e(B ?\e$,1 W\e(B tbl)
-;;; (set-case-syntax-pair ?\e$,1!8\e(B ?\e,A\7f\e(B tbl) ; these two have different length!
- (set-case-syntax-pair ?\e$,1!9\e(B ?\e$,1!:\e(B tbl)
- (set-case-syntax-pair ?\e$,1!;\e(B ?\e$,1!<\e(B tbl)
- (set-case-syntax-pair ?\e$,1!=\e(B ?\e$,1!>\e(B tbl)
+ (set-case-syntax-pair ?IJ ?ij tbl)
+ (set-case-syntax-pair ?Ĵ ?ĵ tbl)
+ (set-case-syntax-pair ?Ķ ?ķ tbl)
+;;; (set-case-syntax-pair ?Ÿ ?ÿ tbl) ; these two have different length!
+ (set-case-syntax-pair ?Ź ?ź tbl)
+ (set-case-syntax-pair ?Ż ?ż tbl)
+ (set-case-syntax-pair ?Ž ?ž tbl)
;; Latin Extended-B
- (set-case-syntax-pair ?\e$,1!A\e(B ?\e$,1#S\e(B tbl)
- (set-case-syntax-pair ?\e$,1!B\e(B ?\e$,1!C\e(B tbl)
- (set-case-syntax-pair ?\e$,1!D\e(B ?\e$,1!E\e(B tbl)
- (set-case-syntax-pair ?\e$,1!F\e(B ?\e$,1#T\e(B tbl)
- (set-case-syntax-pair ?\e$,1!G\e(B ?\e$,1!H\e(B tbl)
- (set-case-syntax-pair ?\e$,1!I\e(B ?\e$,1#V\e(B tbl)
- (set-case-syntax-pair ?\e$,1!J\e(B ?\e$,1#W\e(B tbl)
- (set-case-syntax-pair ?\e$,1!K\e(B ?\e$,1!L\e(B tbl)
- (set-case-syntax-pair ?\e$,1!N\e(B ?\e$,1"=\e(B tbl)
- (set-case-syntax-pair ?\e$,1!O\e(B ?\e$,1#Y\e(B tbl)
- (set-case-syntax-pair ?\e$,1!P\e(B ?\e$,1#[\e(B tbl)
- (set-case-syntax-pair ?\e$,1!Q\e(B ?\e$,1!R\e(B tbl)
- (set-case-syntax-pair ?\e$,1!S\e(B ?\e$,1#`\e(B tbl)
- (set-case-syntax-pair ?\e$,1!T\e(B ?\e$,1#c\e(B tbl)
- (set-case-syntax-pair ?\e$,1!V\e(B ?\e$,1#i\e(B tbl)
- (set-case-syntax-pair ?\e$,1!W\e(B ?\e$,1#h\e(B tbl)
- (set-case-syntax-pair ?\e$,1!X\e(B ?\e$,1!Y\e(B tbl)
- (set-case-syntax-pair ?\e$,1!\\e(B ?\e$,1#o\e(B tbl)
- (set-case-syntax-pair ?\e$,1!]\e(B ?\e$,1#r\e(B tbl)
- (set-case-syntax-pair ?\e$,1!_\e(B ?\e$,1#u\e(B tbl)
- (set-case-syntax-pair ?\e$,1!`\e(B ?\e$,1!a\e(B tbl)
- (set-case-syntax-pair ?\e$,1!b\e(B ?\e$,1!c\e(B tbl)
- (set-case-syntax-pair ?\e$,1!d\e(B ?\e$,1!e\e(B tbl)
- (set-case-syntax-pair ?\e$,1!f\e(B ?\e$,1$ \e(B tbl)
- (set-case-syntax-pair ?\e$,1!g\e(B ?\e$,1!h\e(B tbl)
- (set-case-syntax-pair ?\e$,1!i\e(B ?\e$,1$#\e(B tbl)
- (set-case-syntax-pair ?\e$,1!l\e(B ?\e$,1!m\e(B tbl)
- (set-case-syntax-pair ?\e$,1!n\e(B ?\e$,1$(\e(B tbl)
- (set-case-syntax-pair ?\e$,1!o\e(B ?\e$,1!p\e(B tbl)
- (set-case-syntax-pair ?\e$,1!q\e(B ?\e$,1$*\e(B tbl)
- (set-case-syntax-pair ?\e$,1!r\e(B ?\e$,1$+\e(B tbl)
- (set-case-syntax-pair ?\e$,1!s\e(B ?\e$,1!t\e(B tbl)
- (set-case-syntax-pair ?\e$,1!u\e(B ?\e$,1!v\e(B tbl)
- (set-case-syntax-pair ?\e$,1!w\e(B ?\e$,1$2\e(B tbl)
- (set-case-syntax-pair ?\e$,1!x\e(B ?\e$,1!y\e(B tbl)
- (set-case-syntax-pair ?\e$,1!|\e(B ?\e$,1!}\e(B tbl)
- (set-case-syntax-pair ?\e$,1"$\e(B ?\e$,1"&\e(B tbl)
- (set-case-syntax-pair ?\e$,1"%\e(B ?\e$,1"&\e(B tbl)
- (set-case-syntax-pair ?\e$,1"'\e(B ?\e$,1")\e(B tbl)
- (set-case-syntax-pair ?\e$,1"(\e(B ?\e$,1")\e(B tbl)
- (set-case-syntax-pair ?\e$,1"*\e(B ?\e$,1",\e(B tbl)
- (set-case-syntax-pair ?\e$,1"+\e(B ?\e$,1",\e(B tbl)
- (set-case-syntax-pair ?\e$,1"-\e(B ?\e$,1".\e(B tbl)
- (set-case-syntax-pair ?\e$,1"/\e(B ?\e$,1"0\e(B tbl)
- (set-case-syntax-pair ?\e$,1"1\e(B ?\e$,1"2\e(B tbl)
- (set-case-syntax-pair ?\e$,1"3\e(B ?\e$,1"4\e(B tbl)
- (set-case-syntax-pair ?\e$,1"5\e(B ?\e$,1"6\e(B tbl)
- (set-case-syntax-pair ?\e$,1"7\e(B ?\e$,1"8\e(B tbl)
- (set-case-syntax-pair ?\e$,1"9\e(B ?\e$,1":\e(B tbl)
- (set-case-syntax-pair ?\e$,1";\e(B ?\e$,1"<\e(B tbl)
- (set-case-syntax-pair ?\e$,1">\e(B ?\e$,1"?\e(B tbl)
- (set-case-syntax-pair ?\e$,1"@\e(B ?\e$,1"A\e(B tbl)
- (set-case-syntax-pair ?\e$,1"B\e(B ?\e$,1"C\e(B tbl)
- (set-case-syntax-pair ?\e$,1"D\e(B ?\e$,1"E\e(B tbl)
- (set-case-syntax-pair ?\e$,1"F\e(B ?\e$,1"G\e(B tbl)
- (set-case-syntax-pair ?\e$,1"H\e(B ?\e$,1"I\e(B tbl)
- (set-case-syntax-pair ?\e$,1"J\e(B ?\e$,1"K\e(B tbl)
- (set-case-syntax-pair ?\e$,1"L\e(B ?\e$,1"M\e(B tbl)
- (set-case-syntax-pair ?\e$,1"N\e(B ?\e$,1"O\e(B tbl)
+ (set-case-syntax-pair ?Ɓ ?ɓ tbl)
+ (set-case-syntax-pair ?Ƃ ?ƃ tbl)
+ (set-case-syntax-pair ?Ƅ ?ƅ tbl)
+ (set-case-syntax-pair ?Ɔ ?ɔ tbl)
+ (set-case-syntax-pair ?Ƈ ?ƈ tbl)
+ (set-case-syntax-pair ?Ɖ ?ɖ tbl)
+ (set-case-syntax-pair ?Ɗ ?ɗ tbl)
+ (set-case-syntax-pair ?Ƌ ?ƌ tbl)
+ (set-case-syntax-pair ?Ǝ ?ǝ tbl)
+ (set-case-syntax-pair ?Ə ?ə tbl)
+ (set-case-syntax-pair ?Ɛ ?ɛ tbl)
+ (set-case-syntax-pair ?Ƒ ?ƒ tbl)
+ (set-case-syntax-pair ?Ɠ ?ɠ tbl)
+ (set-case-syntax-pair ?Ɣ ?ɣ tbl)
+ (set-case-syntax-pair ?Ɩ ?ɩ tbl)
+ (set-case-syntax-pair ?Ɨ ?ɨ tbl)
+ (set-case-syntax-pair ?Ƙ ?ƙ tbl)
+ (set-case-syntax-pair ?Ɯ ?ɯ tbl)
+ (set-case-syntax-pair ?Ɲ ?ɲ tbl)
+ (set-case-syntax-pair ?Ɵ ?ɵ tbl)
+ (set-case-syntax-pair ?Ơ ?ơ tbl)
+ (set-case-syntax-pair ?Ƣ ?ƣ tbl)
+ (set-case-syntax-pair ?Ƥ ?ƥ tbl)
+ (set-case-syntax-pair ?Ʀ ?ʀ tbl)
+ (set-case-syntax-pair ?Ƨ ?ƨ tbl)
+ (set-case-syntax-pair ?Ʃ ?ʃ tbl)
+ (set-case-syntax-pair ?Ƭ ?ƭ tbl)
+ (set-case-syntax-pair ?Ʈ ?ʈ tbl)
+ (set-case-syntax-pair ?Ư ?ư tbl)
+ (set-case-syntax-pair ?Ʊ ?ʊ tbl)
+ (set-case-syntax-pair ?Ʋ ?ʋ tbl)
+ (set-case-syntax-pair ?Ƴ ?ƴ tbl)
+ (set-case-syntax-pair ?Ƶ ?ƶ tbl)
+ (set-case-syntax-pair ?Ʒ ?ʒ tbl)
+ (set-case-syntax-pair ?Ƹ ?ƹ tbl)
+ (set-case-syntax-pair ?Ƽ ?ƽ tbl)
+ (set-case-syntax-pair ?DŽ ?dž tbl)
+ (set-case-syntax-pair ?Dž ?dž tbl)
+ (set-case-syntax-pair ?LJ ?lj tbl)
+ (set-case-syntax-pair ?Lj ?lj tbl)
+ (set-case-syntax-pair ?NJ ?nj tbl)
+ (set-case-syntax-pair ?Nj ?nj tbl)
+ (set-case-syntax-pair ?Ǎ ?ǎ tbl)
+ (set-case-syntax-pair ?Ǐ ?ǐ tbl)
+ (set-case-syntax-pair ?Ǒ ?ǒ tbl)
+ (set-case-syntax-pair ?Ǔ ?ǔ tbl)
+ (set-case-syntax-pair ?Ǖ ?ǖ tbl)
+ (set-case-syntax-pair ?Ǘ ?ǘ tbl)
+ (set-case-syntax-pair ?Ǚ ?ǚ tbl)
+ (set-case-syntax-pair ?Ǜ ?ǜ tbl)
+ (set-case-syntax-pair ?Ǟ ?ǟ tbl)
+ (set-case-syntax-pair ?Ǡ ?ǡ tbl)
+ (set-case-syntax-pair ?Ǣ ?ǣ tbl)
+ (set-case-syntax-pair ?Ǥ ?ǥ tbl)
+ (set-case-syntax-pair ?Ǧ ?ǧ tbl)
+ (set-case-syntax-pair ?Ǩ ?ǩ tbl)
+ (set-case-syntax-pair ?Ǫ ?ǫ tbl)
+ (set-case-syntax-pair ?Ǭ ?ǭ tbl)
+ (set-case-syntax-pair ?Ǯ ?ǯ tbl)
;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
- (set-case-syntax-pair ?\e$,1"Q\e(B ?\e$,1"S\e(B tbl)
- (set-case-syntax-pair ?\e$,1"R\e(B ?\e$,1"S\e(B tbl)
- (set-case-syntax-pair ?\e$,1"T\e(B ?\e$,1"U\e(B tbl)
- (set-case-syntax-pair ?\e$,1"V\e(B ?\e$,1!U\e(B tbl)
- (set-case-syntax-pair ?\e$,1"W\e(B ?\e$,1!\7f\e(B tbl)
- (set-case-syntax-pair ?\e$,1"X\e(B ?\e$,1"Y\e(B tbl)
- (set-case-syntax-pair ?\e$,1"Z\e(B ?\e$,1"[\e(B tbl)
- (set-case-syntax-pair ?\e$,1"\\e(B ?\e$,1"]\e(B tbl)
- (set-case-syntax-pair ?\e$,1"^\e(B ?\e$,1"_\e(B tbl)
- (set-case-syntax-pair ?\e$,1"`\e(B ?\e$,1"a\e(B tbl)
- (set-case-syntax-pair ?\e$,1"b\e(B ?\e$,1"c\e(B tbl)
- (set-case-syntax-pair ?\e$,1"d\e(B ?\e$,1"e\e(B tbl)
- (set-case-syntax-pair ?\e$,1"f\e(B ?\e$,1"g\e(B tbl)
- (set-case-syntax-pair ?\e$,1"h\e(B ?\e$,1"i\e(B tbl)
- (set-case-syntax-pair ?\e$,1"j\e(B ?\e$,1"k\e(B tbl)
- (set-case-syntax-pair ?\e$,1"l\e(B ?\e$,1"m\e(B tbl)
- (set-case-syntax-pair ?\e$,1"n\e(B ?\e$,1"o\e(B tbl)
- (set-case-syntax-pair ?\e$,1"p\e(B ?\e$,1"q\e(B tbl)
- (set-case-syntax-pair ?\e$,1"r\e(B ?\e$,1"s\e(B tbl)
- (set-case-syntax-pair ?\e$,1"t\e(B ?\e$,1"u\e(B tbl)
- (set-case-syntax-pair ?\e$,1"v\e(B ?\e$,1"w\e(B tbl)
- (set-case-syntax-pair ?\e$,1"x\e(B ?\e$,1"y\e(B tbl)
- (set-case-syntax-pair ?\e$,1"z\e(B ?\e$,1"{\e(B tbl)
- (set-case-syntax-pair ?\e$,1"|\e(B ?\e$,1"}\e(B tbl)
- (set-case-syntax-pair ?\e$,1"~\e(B ?\e$,1"\7f\e(B tbl)
- (set-case-syntax-pair ?\e$,1#"\e(B ?\e$,1##\e(B tbl)
- (set-case-syntax-pair ?\e$,1#$\e(B ?\e$,1#%\e(B tbl)
- (set-case-syntax-pair ?\e$,1#&\e(B ?\e$,1#'\e(B tbl)
- (set-case-syntax-pair ?\e$,1#(\e(B ?\e$,1#)\e(B tbl)
- (set-case-syntax-pair ?\e$,1#*\e(B ?\e$,1#+\e(B tbl)
- (set-case-syntax-pair ?\e$,1#,\e(B ?\e$,1#-\e(B tbl)
- (set-case-syntax-pair ?\e$,1#.\e(B ?\e$,1#/\e(B tbl)
- (set-case-syntax-pair ?\e$,1#0\e(B ?\e$,1#1\e(B tbl)
- (set-case-syntax-pair ?\e$,1#2\e(B ?\e$,1#3\e(B tbl)
+ (set-case-syntax-pair ?DZ ?dz tbl)
+ (set-case-syntax-pair ?Dz ?dz tbl)
+ (set-case-syntax-pair ?Ǵ ?ǵ tbl)
+ (set-case-syntax-pair ?Ƕ ?ƕ tbl)
+ (set-case-syntax-pair ?Ƿ ?ƿ tbl)
+ (set-case-syntax-pair ?Ǹ ?ǹ tbl)
+ (set-case-syntax-pair ?Ǻ ?ǻ tbl)
+ (set-case-syntax-pair ?Ǽ ?ǽ tbl)
+ (set-case-syntax-pair ?Ǿ ?ǿ tbl)
+ (set-case-syntax-pair ?Ȁ ?ȁ tbl)
+ (set-case-syntax-pair ?Ȃ ?ȃ tbl)
+ (set-case-syntax-pair ?Ȅ ?ȅ tbl)
+ (set-case-syntax-pair ?Ȇ ?ȇ tbl)
+ (set-case-syntax-pair ?Ȉ ?ȉ tbl)
+ (set-case-syntax-pair ?Ȋ ?ȋ tbl)
+ (set-case-syntax-pair ?Ȍ ?ȍ tbl)
+ (set-case-syntax-pair ?Ȏ ?ȏ tbl)
+ (set-case-syntax-pair ?Ȑ ?ȑ tbl)
+ (set-case-syntax-pair ?Ȓ ?ȓ tbl)
+ (set-case-syntax-pair ?Ȕ ?ȕ tbl)
+ (set-case-syntax-pair ?Ȗ ?ȗ tbl)
+ (set-case-syntax-pair ?Ș ?ș tbl)
+ (set-case-syntax-pair ?Ț ?ț tbl)
+ (set-case-syntax-pair ?Ȝ ?ȝ tbl)
+ (set-case-syntax-pair ?Ȟ ?ȟ tbl)
+ (set-case-syntax-pair ?Ȣ ?ȣ tbl)
+ (set-case-syntax-pair ?Ȥ ?ȥ tbl)
+ (set-case-syntax-pair ?Ȧ ?ȧ tbl)
+ (set-case-syntax-pair ?Ȩ ?ȩ tbl)
+ (set-case-syntax-pair ?Ȫ ?ȫ tbl)
+ (set-case-syntax-pair ?Ȭ ?ȭ tbl)
+ (set-case-syntax-pair ?Ȯ ?ȯ tbl)
+ (set-case-syntax-pair ?Ȱ ?ȱ tbl)
+ (set-case-syntax-pair ?Ȳ ?ȳ tbl)
;; Latin Extended Additional
(setq c #x1e00)
(set-case-syntax-pair
(decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
(setq c (1+ c)))
- (set-case-syntax-pair ?\e$,1&f\e(B ?\e$,1',\e(B tbl)
- (set-case-syntax-pair ?\e$,1&h\e(B ?\e$,1'-\e(B tbl)
- (set-case-syntax-pair ?\e$,1&i\e(B ?\e$,1'.\e(B tbl)
- (set-case-syntax-pair ?\e$,1&j\e(B ?\e$,1'/\e(B tbl)
- (set-case-syntax-pair ?\e$,1&l\e(B ?\e$,1'L\e(B tbl)
- (set-case-syntax-pair ?\e$,1&n\e(B ?\e$,1'M\e(B tbl)
- (set-case-syntax-pair ?\e$,1&o\e(B ?\e$,1'N\e(B tbl)
+ (set-case-syntax-pair ?Ά ?ά tbl)
+ (set-case-syntax-pair ?Έ ?έ tbl)
+ (set-case-syntax-pair ?Ή ?ή tbl)
+ (set-case-syntax-pair ?Ί ?ί tbl)
+ (set-case-syntax-pair ?Ό ?ό tbl)
+ (set-case-syntax-pair ?Ύ ?ύ tbl)
+ (set-case-syntax-pair ?Ώ ?ώ tbl)
;; Armenian
(setq c #x531)
(set-case-syntax-pair
(decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl))
(setq c (1+ c)))
- (set-case-syntax-pair ?\e$,1qx\e(B ?\e$,1qp\e(B tbl)
- (set-case-syntax-pair ?\e$,1qy\e(B ?\e$,1qq\e(B tbl)
- (set-case-syntax-pair ?\e$,1qz\e(B ?\e$,1q0\e(B tbl)
- (set-case-syntax-pair ?\e$,1q{\e(B ?\e$,1q1\e(B tbl)
- (set-case-syntax-pair ?\e$,1q|\e(B ?\e$,1qs\e(B tbl)
- (set-case-syntax-pair ?\e$,1r(\e(B ?\e$,1q2\e(B tbl)
- (set-case-syntax-pair ?\e$,1r)\e(B ?\e$,1q3\e(B tbl)
- (set-case-syntax-pair ?\e$,1r*\e(B ?\e$,1q4\e(B tbl)
- (set-case-syntax-pair ?\e$,1r+\e(B ?\e$,1q5\e(B tbl)
- (set-case-syntax-pair ?\e$,1r,\e(B ?\e$,1r#\e(B tbl)
- (set-case-syntax-pair ?\e$,1r8\e(B ?\e$,1r0\e(B tbl)
- (set-case-syntax-pair ?\e$,1r9\e(B ?\e$,1r1\e(B tbl)
- (set-case-syntax-pair ?\e$,1r:\e(B ?\e$,1q6\e(B tbl)
- (set-case-syntax-pair ?\e$,1r;\e(B ?\e$,1q7\e(B tbl)
- (set-case-syntax-pair ?\e$,1rH\e(B ?\e$,1r@\e(B tbl)
- (set-case-syntax-pair ?\e$,1rI\e(B ?\e$,1rA\e(B tbl)
- (set-case-syntax-pair ?\e$,1rJ\e(B ?\e$,1q:\e(B tbl)
- (set-case-syntax-pair ?\e$,1rK\e(B ?\e$,1q;\e(B tbl)
- (set-case-syntax-pair ?\e$,1rL\e(B ?\e$,1rE\e(B tbl)
- (set-case-syntax-pair ?\e$,1rX\e(B ?\e$,1q8\e(B tbl)
- (set-case-syntax-pair ?\e$,1rY\e(B ?\e$,1q9\e(B tbl)
- (set-case-syntax-pair ?\e$,1rZ\e(B ?\e$,1q<\e(B tbl)
- (set-case-syntax-pair ?\e$,1r[\e(B ?\e$,1q=\e(B tbl)
- (set-case-syntax-pair ?\e$,1r\\e(B ?\e$,1rS\e(B tbl)
+ (set-case-syntax-pair ?Ᾰ ?ᾰ tbl)
+ (set-case-syntax-pair ?Ᾱ ?ᾱ tbl)
+ (set-case-syntax-pair ?Ὰ ?ὰ tbl)
+ (set-case-syntax-pair ?Ά ?ά tbl)
+ (set-case-syntax-pair ?ᾼ ?ᾳ tbl)
+ (set-case-syntax-pair ?Ὲ ?ὲ tbl)
+ (set-case-syntax-pair ?Έ ?έ tbl)
+ (set-case-syntax-pair ?Ὴ ?ὴ tbl)
+ (set-case-syntax-pair ?Ή ?ή tbl)
+ (set-case-syntax-pair ?ῌ ?ῃ tbl)
+ (set-case-syntax-pair ?Ῐ ?ῐ tbl)
+ (set-case-syntax-pair ?Ῑ ?ῑ tbl)
+ (set-case-syntax-pair ?Ὶ ?ὶ tbl)
+ (set-case-syntax-pair ?Ί ?ί tbl)
+ (set-case-syntax-pair ?Ῠ ?ῠ tbl)
+ (set-case-syntax-pair ?Ῡ ?ῡ tbl)
+ (set-case-syntax-pair ?Ὺ ?ὺ tbl)
+ (set-case-syntax-pair ?Ύ ?ύ tbl)
+ (set-case-syntax-pair ?Ῥ ?ῥ tbl)
+ (set-case-syntax-pair ?Ὸ ?ὸ tbl)
+ (set-case-syntax-pair ?Ό ?ό tbl)
+ (set-case-syntax-pair ?Ὼ ?ὼ tbl)
+ (set-case-syntax-pair ?Ώ ?ώ tbl)
+ (set-case-syntax-pair ?ῼ ?ῳ tbl)
;; cyrillic
(setq c #x0400)
(set-case-syntax-pair
(decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
(setq c (1+ c)))
- (set-case-syntax-pair ?\e$,1*!\e(B ?\e$,1*"\e(B tbl)
- (set-case-syntax-pair ?\e$,1*#\e(B ?\e$,1*$\e(B tbl)
- (set-case-syntax-pair ?\e$,1*'\e(B ?\e$,1*(\e(B tbl)
- (set-case-syntax-pair ?\e$,1*+\e(B ?\e$,1*,\e(B tbl)
- (set-case-syntax-pair ?\e$,1*X\e(B ?\e$,1*Y\e(B tbl)
+ (set-case-syntax-pair ?Ӂ ?ӂ tbl)
+ (set-case-syntax-pair ?Ӄ ?ӄ tbl)
+ (set-case-syntax-pair ?Ӈ ?ӈ tbl)
+ (set-case-syntax-pair ?Ӌ ?ӌ tbl)
+ (set-case-syntax-pair ?Ӹ ?ӹ tbl)
;; general punctuation
(setq c #x2000)
(setq c (1+ c)))
;; Ohm, Kelvin, Angstrom
- (set-case-syntax-pair ?\e$,1uf\e(B ?\e$,1'I\e(B tbl)
-;;; These mess up the case conversion of k and \e,Ae\e(B.
-;;; (set-case-syntax-pair ?\e$,1uj\e(B ?k tbl)
-;;; (set-case-syntax-pair ?\e$,1uk\e(B ?\e,Ae\e(B tbl)
+ (set-case-syntax-pair ?Ω ?ω tbl)
+;;; These mess up the case conversion of k and å.
+;;; (set-case-syntax-pair ?K ?k tbl)
+;;; (set-case-syntax-pair ?Å ?å tbl)
;; Combining diacritics
(setq c #x300)
;;; Local Variables:
-;;; coding: iso-2022-7bit
+;;; coding: utf-8-emacs
;;; End:
;;; characters.el ends here
projects / emacs.git / commitdiff