/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by rms, Wed Dec 12 22:47:58 2001 UTC revision 1.35.2.1 by handa, Fri Mar 1 02:06:19 2002 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5  ;; Copyright (C) 2001 Free Software Foundation, Inc.  ;; Copyright (C) 2001 Free Software Foundation, Inc.
6    ;; Copyright (C) 2001, 2002
7    ;;   National Institute of Advanced Industrial Science and Technology (AIST)
8    ;;   Registration Number H13PRO009
9    
10  ;; Keywords: multibyte character, character set, syntax, category  ;; Keywords: multibyte character, character set, syntax, category
11    
# Line 112  Line 115 
115                    arabic-2-column)))                    arabic-2-column)))
116    (while charsets    (while charsets
117  ;;     (modify-syntax-entry (make-char (car charsets)) "w")  ;;     (modify-syntax-entry (make-char (car charsets)) "w")
118      (modify-category-entry (make-char (car charsets)) ?b)      (map-charset-chars
119         #'(lambda (char ignore)
120             (if (consp char)
121                 (let ((from (car char))
122                       (to (cdr char)))
123                   (while (<= from to)
124                     (modify-category-entry from ?b)
125                     (setq from (1+ from))))
126               (modify-category-entry char ?b)))
127         (car charsets))
128      (setq charsets (cdr charsets))))      (setq charsets (cdr charsets))))
129  (let ((ch #x600))  (let ((ch #x600))
130    (while (<= ch #x6ff)    (while (<= ch #x6ff)
# Line 130  Line 142 
142  ;; Chinese character set (GB2312)  ;; Chinese character set (GB2312)
143    
144  ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w")  ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w")
145  (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")  ;; (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
146  (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")  ;; (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
147  (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")  ;; (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
148  (modify-syntax-entry ?\$A!2(B "($A!3(B")  (modify-syntax-entry ?\$A!2(B "($A!3(B")
149  (modify-syntax-entry ?\$A!4(B "($A!5(B")  (modify-syntax-entry ?\$A!4(B "($A!5(B")
150  (modify-syntax-entry ?\$A!6(B "($A!7(B")  (modify-syntax-entry ?\$A!6(B "($A!7(B")
# Line 163  Line 175 
175  (modify-syntax-entry ?\$,2=W(B ")$,2=V(B")  (modify-syntax-entry ?\$,2=W(B ")$,2=V(B")
176  (modify-syntax-entry ?\$,2=Q(B ")$,2=P(B")  (modify-syntax-entry ?\$,2=Q(B ")$,2=P(B")
177    
178  (modify-category-entry (make-char 'chinese-gb2312) ?c)  ;; (modify-category-entry (make-char 'chinese-gb2312) ?c)
179  (modify-category-entry (make-char 'chinese-gb2312) ?\|)  ;; (modify-category-entry (make-char 'chinese-gb2312) ?\|)
180  (modify-category-entry (make-char 'chinese-gb2312 35) ?A)  ;; (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
181  (modify-category-entry (make-char 'chinese-gb2312 36) ?H)  ;; (modify-category-entry (make-char 'chinese-gb2312 36) ?H)
182  (modify-category-entry (make-char 'chinese-gb2312 37) ?K)  ;; (modify-category-entry (make-char 'chinese-gb2312 37) ?K)
183  (modify-category-entry (make-char 'chinese-gb2312 38) ?G)  ;; (modify-category-entry (make-char 'chinese-gb2312 38) ?G)
184  (modify-category-entry (make-char 'chinese-gb2312 39) ?Y)  ;; (modify-category-entry (make-char 'chinese-gb2312 39) ?Y)
185  (let ((row 48))  ;; (let ((row 48))
186    (while (< row 127)  ;;   (while (< row 127)
187      (modify-category-entry (make-char 'chinese-gb2312 row) ?C)  ;;     (modify-category-entry (make-char 'chinese-gb2312 row) ?C)
188      (setq row (1+ row))))  ;;     (setq row (1+ row))))
189    
190  ;; Chinese character set (BIG5)  ;; Chinese character set (BIG5)
191    
192  (let ((generic-big5-1-char (make-char 'chinese-big5-1))  ;; (let ((generic-big5-1-char (make-char 'chinese-big5-1))
193        (generic-big5-2-char (make-char 'chinese-big5-2)))  ;;       (generic-big5-2-char (make-char 'chinese-big5-2)))
194  ;;   (modify-syntax-entry generic-big5-1-char "w")  ;;   (modify-syntax-entry generic-big5-1-char "w")
195  ;;   (modify-syntax-entry generic-big5-2-char "w")  ;;   (modify-syntax-entry generic-big5-2-char "w")
196    
197    (modify-category-entry generic-big5-1-char ?c)  ;;   (modify-category-entry generic-big5-1-char ?c)
198    (modify-category-entry generic-big5-2-char ?c)  ;;   (modify-category-entry generic-big5-2-char ?c)
199    
200    (modify-category-entry generic-big5-1-char ?C)  ;;   (modify-category-entry generic-big5-1-char ?C)
201    (modify-category-entry generic-big5-2-char ?C)  ;;   (modify-category-entry generic-big5-2-char ?C)
202    
203    (modify-category-entry generic-big5-1-char ?\|)  ;;   (modify-category-entry generic-big5-1-char ?\|)
204    (modify-category-entry generic-big5-2-char ?\|))  ;;   (modify-category-entry generic-big5-2-char ?\|))
205    
206    
207  ;; Chinese character set (CNS11643)  ;; Chinese character set (CNS11643)
208    
209  (let ((cns-list '(chinese-cns11643-1  ;; (let ((cns-list '(chinese-cns11643-1
210                    chinese-cns11643-2  ;;                chinese-cns11643-2
211                    chinese-cns11643-3  ;;                chinese-cns11643-3
212                    chinese-cns11643-4  ;;                chinese-cns11643-4
213                    chinese-cns11643-5  ;;                chinese-cns11643-5
214                    chinese-cns11643-6  ;;                chinese-cns11643-6
215                    chinese-cns11643-7))  ;;                chinese-cns11643-7))
216        generic-char)  ;;       generic-char)
217    (while cns-list  ;;   (while cns-list
218      (setq generic-char (make-char (car cns-list)))  ;;     (setq generic-char (make-char (car cns-list)))
219  ;;     (modify-syntax-entry generic-char "w")  ;;     (modify-syntax-entry generic-char "w")
220      (modify-category-entry generic-char ?c)  ;;     (modify-category-entry generic-char ?c)
221      (modify-category-entry generic-char ?C)  ;;     (modify-category-entry generic-char ?C)
222      (modify-category-entry generic-char ?|)  ;;     (modify-category-entry generic-char ?|)
223      (setq cns-list (cdr cns-list))))  ;;     (setq cns-list (cdr cns-list))))
224    
225  ;; Cyrillic character set (ISO-8859-5)  ;; Cyrillic character set (ISO-8859-5)
226    
227  (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)  (modify-syntax-entry (decode-char 'iso-8859-5 160) " ")
   
 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ")  
228  (modify-syntax-entry ?,L-(B ".")  (modify-syntax-entry ?,L-(B ".")
229  (modify-syntax-entry ?,Lp(B ".")  (modify-syntax-entry ?,Lp(B ".")
230  (modify-syntax-entry ?,L}(B ".")  (modify-syntax-entry ?,L}(B ".")
# Line 354  Line 364 
364    
365  ;; Ethiopic character set  ;; Ethiopic character set
366    
367  (modify-category-entry (make-char 'ethiopic) ?e)  ;; (modify-category-entry (make-char 'ethiopic) ?e)
368  ;; (modify-syntax-entry (make-char 'ethiopic) "w")  ;; (modify-syntax-entry (make-char 'ethiopic) "w")
369  (dotimes (i (1+ (- #x137c #x1200)))  (dotimes (i (1+ (- #x137c #x1200)))
370    (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e))    (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e))
# Line 367  Line 377 
377    
378  ;; Greek character set (ISO-8859-7)  ;; Greek character set (ISO-8859-7)
379    
380  (modify-category-entry (make-char 'greek-iso8859-7) ?g)  ;; (modify-category-entry (make-char 'greek-iso8859-7) ?g)
381  (let ((c #x370))  (let ((c #x370))
382    (while (<= c #x3ff)    (while (<= c #x3ff)
383      (modify-category-entry (decode-char 'ucs c) ?g)      (modify-category-entry (decode-char 'ucs c) ?g)
# Line 378  Line 388 
388  ;;     (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")  ;;     (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
389  ;;     (setq c (1+ c))))  ;;     (setq c (1+ c))))
390  ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP  ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
391  (modify-syntax-entry ?,F7(B ".")  ;; (modify-syntax-entry ?,F7(B ".")
392  (modify-syntax-entry ?,F;(B ".")  ;; (modify-syntax-entry ?,F;(B ".")
393  (modify-syntax-entry ?,F=(B ".")  ;; (modify-syntax-entry ?,F=(B ".")
394  (let ((tbl (standard-case-table)))  (let ((tbl (standard-case-table)))
395    ;; Fixme: non-letter syntax copied from latin-1, but that's dubious    ;; Fixme: non-letter syntax copied from latin-1, but that's dubious
396    ;; in several cases.    ;; in several cases.
# Line 468  Line 478 
478    
479  ;; Hebrew character set (ISO-8859-8)  ;; Hebrew character set (ISO-8859-8)
480    
481  (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)  ;; (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)
482  (let ((c #x591))  (let ((c #x591))
483    (while (<= c #x5f4)    (while (<= c #x5f4)
484      (modify-category-entry (decode-char 'ucs c) ?w)      (modify-category-entry (decode-char 'ucs c) ?w)
485      (setq c (1+ c))))      (setq c (1+ c))))
486    
487  (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ  ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ
488  (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ  ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ
489  (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF  (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF
490  (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ  (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ
491  (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ  (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ
# Line 490  Line 500 
500    
501  ;; Indian character set (IS 13194 and other Emacs original Indian charsets)  ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
502    
503  (modify-category-entry (make-char 'indian-is13194) ?i)  ;; (modify-category-entry (make-char 'indian-is13194) ?i)
504  (modify-category-entry (make-char 'indian-2-column) ?I)  ;; (modify-category-entry (make-char 'indian-2-column) ?I)
505  (modify-category-entry (make-char 'indian-glyph) ?I)  ;; (modify-category-entry (make-char 'indian-glyph) ?I)
506  ;; Unicode Devanagari block  ;; Unicode Devanagari block
507  (let ((c #x901))  (let ((c #x901))
508    (while (<= c #x970)    (while (<= c #x970)
# Line 534  Line 544 
544    
545  ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)  ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
546    
547  (modify-category-entry (make-char 'katakana-jisx0201) ?k)  (map-charset-chars
548  (modify-category-entry (make-char 'katakana-jisx0201) ?j)   #'(lambda (char ignore)
549  (modify-category-entry (make-char 'latin-jisx0201) ?r)       (if (consp char)
550  (modify-category-entry (make-char 'japanese-jisx0208) ?j)           (let ((from (car char))
551  (modify-category-entry (make-char 'japanese-jisx0212) ?j)                 (to (car char)))
552  (modify-category-entry (make-char 'katakana-jisx0201) ?\|)             (while (<= from to)
553  (modify-category-entry (make-char 'japanese-jisx0208) ?\|)               (modify-category-entry from ?k)
554  (modify-category-entry (make-char 'japanese-jisx0212) ?\|)               (setq from (1+ from))))
555           (modify-category-entry char ?k)))
556     'katakana-jisx0201)
557    
558    (map-charset-chars
559     #'(lambda (char ignore)
560         (if (consp char)
561             (let ((from (car char))
562                   (to (cdr char)))
563               (while (<= from to)
564                 (modify-category-entry from ?r)
565                 (setq from (1+ from))))
566           (modify-category-entry char ?r)))
567     'latin-jisx0201)
568    (dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212))
569      (map-charset-chars
570       #'(lambda (char ignore)
571           (if (consp char)
572               (let ((from (car char))
573                     (to (cdr char)))
574                 (while (<= from to)
575                   (modify-category-entry from ?j)
576                   (modify-category-entry from ?\|)
577                   (setq from (1+ from))))
578             (modify-category-entry char ?j)
579             (modify-category-entry char ?\|)))
580       l))
581    
582  ;; Unicode equivalents of JISX0201-kana  ;; Unicode equivalents of JISX0201-kana
583  (let ((c #xff61))  (let ((c #xff61))
# Line 571  Line 607 
607    
608  ;; JISX0208  ;; JISX0208
609  ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")  ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
610  (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
611  (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
612  (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
613  ;; (let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B)))  ;; (let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B)))
614  ;;   (while chars  ;;   (while chars
615  ;;     (modify-syntax-entry (car chars) "w")  ;;     (modify-syntax-entry (car chars) "w")
616  ;;     (setq chars (cdr chars))))  ;;     (setq chars (cdr chars))))
617    
618    (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121)
619                               (decode-char 'japanese-jisx0208 #x227E)) "_")
620    (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)
621                               (decode-char 'japanese-jisx0208 #x287E)) "_")
622  (modify-syntax-entry ?\$B!J(B "($B!K(B")  (modify-syntax-entry ?\$B!J(B "($B!K(B")
623  (modify-syntax-entry ?\$B!N(B "($B!O(B")  (modify-syntax-entry ?\$B!N(B "($B!O(B")
624  (modify-syntax-entry ?\$B!P(B "($B!Q(B")  (modify-syntax-entry ?\$B!P(B "($B!Q(B")
# Line 589  Line 630 
630  (modify-syntax-entry ?\$B!W(B ")$B!V(B")  (modify-syntax-entry ?\$B!W(B ")$B!V(B")
631  (modify-syntax-entry ?\$B!Y(B ")$B!X(B")  (modify-syntax-entry ?\$B!Y(B ")$B!X(B")
632    
633  (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)  ;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
634  (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)  ;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
635  (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)  ;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)
636  (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)  ;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)
637  (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)  ;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)
638  (let ((row 48))  ;; (let ((row 48))
639    (while (< row 127)  ;;   (while (< row 127)
640      (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)  ;;     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
641      (setq row (1+ row))))  ;;     (setq row (1+ row))))
642  (modify-category-entry ?$B!<(B ?K)  (modify-category-entry ?$B!<(B ?K)
643  (let ((chars '(?$B!+(B ?$B!,(B)))  (let ((chars '(?$B!+(B ?$B!,(B)))
644    (while chars    (while chars
# Line 611  Line 652 
652    
653  ;; JISX0212  ;; JISX0212
654  ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w")  ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w")
655  (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_")
656  (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_")
657  (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_")  ;; (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_")
658    
659  (modify-category-entry (make-char 'japanese-jisx0212 ) ?C)  (modify-syntax-entry (cons (decode-char 'japanese-jisx0212 #x2121)
660                               (decode-char 'japanese-jisx0212 #x237E))
661                         "_")
662    
663  ;; JISX0201-Kana  ;; JISX0201-Kana
664  ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")  ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
# Line 632  Line 675 
675  ;; Korean character set (KSC5601)  ;; Korean character set (KSC5601)
676    
677  ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w")  ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w")
678  (modify-syntax-entry (make-char 'korean-ksc5601 33) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 33) "_")
679  (modify-syntax-entry (make-char 'korean-ksc5601 34) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 34) "_")
680  (modify-syntax-entry (make-char 'korean-ksc5601 38) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 38) "_")
681  (modify-syntax-entry (make-char 'korean-ksc5601 39) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 39) "_")
682  (modify-syntax-entry (make-char 'korean-ksc5601 40) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 40) "_")
683  (modify-syntax-entry (make-char 'korean-ksc5601 41) "_")  ;; (modify-syntax-entry (make-char 'korean-ksc5601 41) "_")
684    
685  (modify-category-entry (make-char 'korean-ksc5601) ?h)  ;; (modify-category-entry (make-char 'korean-ksc5601) ?h)
686  (modify-category-entry (make-char 'korean-ksc5601 35) ?A)  ;; (modify-category-entry (make-char 'korean-ksc5601 35) ?A)
687  (modify-category-entry (make-char 'korean-ksc5601 37) ?G)  ;; (modify-category-entry (make-char 'korean-ksc5601 37) ?G)
688  (modify-category-entry (make-char 'korean-ksc5601 42) ?H)  ;; (modify-category-entry (make-char 'korean-ksc5601 42) ?H)
689  (modify-category-entry (make-char 'korean-ksc5601 43) ?K)  ;; (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
690  (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)  ;; (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
691    
692  ;; Latin character set (latin-1,2,3,4,5,8,9)  ;; Latin character set (latin-1,2,3,4,5,8,9)
693    
694  (modify-category-entry (make-char 'latin-iso8859-1) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-1) ?l)
695  (modify-category-entry (make-char 'latin-iso8859-2) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-2) ?l)
696  (modify-category-entry (make-char 'latin-iso8859-3) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-3) ?l)
697  (modify-category-entry (make-char 'latin-iso8859-4) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-4) ?l)
698  (modify-category-entry (make-char 'latin-iso8859-9) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-9) ?l)
699  (modify-category-entry (make-char 'latin-iso8859-14) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-14) ?l)
700  (modify-category-entry (make-char 'latin-iso8859-15) ?l)  ;; (modify-category-entry (make-char 'latin-iso8859-15) ?l)
701    
702  (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )
703  (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )
704  (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )
705  (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )
706  (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )
707  (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )
708  (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )  ;; (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )
709    
710  ;; Lao character set  ;; Lao character set
711    
712  (modify-category-entry (make-char 'lao) ?o)  ;; (modify-category-entry (make-char 'lao) ?o)
713  (dotimes (i (1+ (- #xeff #xe80)))  (dotimes (i (1+ (- #xeff #xe80)))
714    (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))    (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))
715    
# Line 713  Line 756 
756    
757  ;; Thai character set (TIS620)  ;; Thai character set (TIS620)
758    
759  (modify-category-entry (make-char 'thai-tis620) ?t)  ;; (modify-category-entry (make-char 'thai-tis620) ?t)
760  (dotimes (i (1+ (- #xe7f #xe00)))  (dotimes (i (1+ (- #xe7f #xe00)))
761    (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))    (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))
762    
# Line 758  Line 801 
801    
802  ;; Tibetan character set  ;; Tibetan character set
803    
804  (modify-category-entry (make-char 'tibetan) ?q)  ;; (modify-category-entry (make-char 'tibetan) ?q)
805  (modify-category-entry (make-char 'tibetan-1-column) ?q)  ;; (modify-category-entry (make-char 'tibetan-1-column) ?q)
806  (dotimes (i (1+ (- #xfff #xf00)))  (dotimes (i (1+ (- #xfff #xf00)))
807    (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))    (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
808    
# Line 815  Line 858 
858    
859  ;; Vietnamese character set  ;; Vietnamese character set
860    
861  (let ((lower (make-char 'vietnamese-viscii-lower))  ;; (let ((lower (make-char 'vietnamese-viscii-lower))
862        (upper (make-char 'vietnamese-viscii-upper)))  ;;      (upper (make-char 'vietnamese-viscii-upper)))
863  ;;   (modify-syntax-entry lower "w")  ;;   (modify-syntax-entry lower "w")
864  ;;   (modify-syntax-entry upper "w")  ;;   (modify-syntax-entry upper "w")
865    (modify-category-entry lower ?v)  ;;  (modify-category-entry lower ?v)
866    (modify-category-entry upper ?v)  ;;  (modify-category-entry upper ?v)
867    (modify-category-entry lower ?l)      ; To make a word with  ;;  (modify-category-entry lower ?l)    ; To make a word with
868    (modify-category-entry upper ?l)      ; latin characters.  ;;  (modify-category-entry upper ?l)    ; latin characters.
869    )  ;;  )
870    
871  (let ((tbl (standard-case-table))  (let ((tbl (standard-case-table))
872        (i 32))        (i 32))
873    (while (< i 128)    (while (< i 128)
874      (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i)      (let ((char (decode-char 'vietnamese-viscii-upper i)))
875                            (make-char 'vietnamese-viscii-lower i)        (if char
876                            tbl)            (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)
877                                    tbl)))
878      (setq i (1+ i))))      (setq i (1+ i))))
879    
880  ;; Unicode (mule-unicode-0100-24ff)  ;; Unicode (mule-unicode-0100-24ff)
# Line 1166  Line 1210 
1210             (vietnamese-viscii-upper . vietnamese-viscii)             (vietnamese-viscii-upper . vietnamese-viscii)
1211             (arabic-digit        . iso-2022-7bit)             (arabic-digit        . iso-2022-7bit)
1212             (arabic-1-column     . iso-2022-7bit)             (arabic-1-column     . iso-2022-7bit)
            (ascii-right-to-left . iso-2022-7bit)  
1213             (lao                 . lao)             (lao                 . lao)
1214             (arabic-2-column     . iso-2022-7bit)             (arabic-2-column     . iso-2022-7bit)
1215             (indian-is13194      . devanagari)             (indian-is13194      . devanagari)
# Line 1194  Line 1237 
1237             japanese-jisx0208 japanese-jisx0212             japanese-jisx0208 japanese-jisx0212
1238             chinese-gb2312 chinese-big5-1 chinese-big5-2)))             chinese-gb2312 chinese-big5-1 chinese-big5-2)))
1239    (while l    (while l
1240      (aset auto-fill-chars (make-char (car l)) t)      ;;(aset auto-fill-chars (make-char (car l)) t)
1241      (put-charset-property (car l) 'nospace-between-words t)      (put-charset-property (car l) 'nospace-between-words t)
1242      (setq l (cdr l))))      (setq l (cdr l))))
1243    
1244    
1245    (set-char-table-range printable-chars '(0 . 31) nil)
1246    (set-char-table-range printable-chars  '(127 . 159) nil)
1247    
1248    
1249  ;;; Local Variables:  ;;; Local Variables:
1250  ;;; coding: iso-2022-7bit  ;;; coding: iso-2022-7bit

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.35.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26