lisp/international/characters.el

   1 ;;; characters.el --- set syntax and category for multibyte characters
   2
   3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multibyte character, character set, syntax, category
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; This file contains multibyte characters.  Save this file always in
  28 ;; the coding system `iso-2022-7bit'.
  29
  30 ;; This file does not define the syntax for Latin-N character sets;
  31 ;; those are defined by the files latin-N.el.
  32
  33 ;;; Predefined categories.
  34
  35 ;; For each character set.
  36
  37 (define-category ?a "ASCII")
  38 (define-category ?l "Latin")
  39 (define-category ?t "Thai")
  40 (define-category ?g "Greek")
  41 (define-category ?b "Arabic")
  42 (define-category ?w "Hebrew")
  43 (define-category ?y "Cyrillic")
  44 (define-category ?k "Japanese katakana")
  45 (define-category ?r "Japanese roman")
  46 (define-category ?c "Chinese")
  47 (define-category ?j "Japanese")
  48 (define-category ?h "Korean")
  49 (define-category ?e "Ethiopic (Ge'ez)")
  50 (define-category ?v "Vietnamese")
  51 (define-category ?i "Indian")
  52 (define-category ?o "Lao")
  53 (define-category ?q "Tibetan")
  54
  55 ;; For each group (row) of 2-byte character sets.
  56
  57 (define-category ?A "Alpha-numeric characters of 2-byte character sets")
  58 (define-category ?C "Chinese (Han) characters of 2-byte character sets")
  59 (define-category ?G "Greek characters of 2-byte character sets")
  60 (define-category ?H "Japanese Hiragana characters of 2-byte character sets")
  61 (define-category ?K "Japanese Katakana characters of 2-byte character sets")
  62 (define-category ?N "Korean Hangul characters of 2-byte character sets")
  63 (define-category ?Y "Cyrillic characters of 2-byte character sets")
  64 (define-category ?I "Indian Glyphs")
  65
  66 ;; For phonetic classifications.
  67
  68 (define-category ?0 "consonant")
  69 (define-category ?1 "base (independent) vowel")
  70 (define-category ?2 "upper diacritical mark (including upper vowel)")
  71 (define-category ?3 "lower diacritical mark (including lower vowel)")
  72 (define-category ?4 "tone mark")
  73 (define-category ?5 "symbol")
  74 (define-category ?6 "digit")
  75 (define-category ?7 "vowel-modifying diacritical mark")
  76 (define-category ?8 "vowel-signs")
  77 (define-category ?9 "semivowel lower")
  78
  79 ;; For filling.
  80 (define-category ?| "While filling, we can break a line at this character.")
  81
  82 ;; For indentation calculation.
  83 (define-category ?
  84   "This character counts as a space for indentation purposes.")
  85
  86 ;; Keep the following for `kinsoku' processing.  See comments in
  87 ;; kinsoku.el.
  88 (define-category ?> "A character which can't be placed at beginning of line.")
  89 (define-category ?< "A character which can't be placed at end of line.")
  90
  91 \f
  92 ;;; Setting syntax and category.
  93
  94 ;; ASCII
  95
  96 (let ((ch 32))
  97   (while (< ch 127)                     ; All ASCII characters have
  98     (modify-category-entry ch ?a)       ; the category `a' (ASCII)
  99     (modify-category-entry ch ?l)       ; and `l' (Latin).
 100     (setq ch (1+ ch))))
 101
 102 ;; Arabic character set
 103
 104 (let ((charsets '(arabic-iso8859-6
 105                   arabic-digit
 106                   arabic-1-column
 107                   arabic-2-column)))
 108   (while charsets
 109     (modify-syntax-entry (make-char (car charsets)) "w")
 110     (modify-category-entry (make-char (car charsets)) ?b)
 111     (setq charsets (cdr charsets))))
 112
 113 ;; Chinese character set (GB2312)
 114
 115 (modify-syntax-entry (make-char 'chinese-gb2312) "w")
 116 (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
 117 (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
 118 (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
 119 (modify-syntax-entry ?\\e$A!2\e(B "(\e$A!3\e(B")
 120 (modify-syntax-entry ?\\e$A!4\e(B "(\e$A!5\e(B")
 121 (modify-syntax-entry ?\\e$A!6\e(B "(\e$A!7\e(B")
 122 (modify-syntax-entry ?\\e$A!8\e(B "(\e$A!9\e(B")
 123 (modify-syntax-entry ?\\e$A!:\e(B "(\e$A!;\e(B")
 124 (modify-syntax-entry ?\\e$A!<\e(B "(\e$A!=\e(B")
 125 (modify-syntax-entry ?\\e$A!>\e(B "(\e$A!?\e(B")
 126 (modify-syntax-entry ?\\e$A!3\e(B ")\e$A!2\e(B")
 127 (modify-syntax-entry ?\\e$A!5\e(B ")\e$A!4\e(B")
 128 (modify-syntax-entry ?\\e$A!7\e(B ")\e$A!6\e(B")
 129 (modify-syntax-entry ?\\e$A!9\e(B ")\e$A!8\e(B")
 130 (modify-syntax-entry ?\\e$A!;\e(B ")\e$A!:\e(B")
 131 (modify-syntax-entry ?\\e$A!=\e(B ")\e$A!<\e(B")
 132 (modify-syntax-entry ?\\e$A!?\e(B ")\e$A!>\e(B")
 133
 134 (modify-category-entry (make-char 'chinese-gb2312) ?c)
 135 (modify-category-entry (make-char 'chinese-gb2312) ?\|)
 136 (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
 137 (modify-category-entry (make-char 'chinese-gb2312 36) ?H)
 138 (modify-category-entry (make-char 'chinese-gb2312 37) ?K)
 139 (modify-category-entry (make-char 'chinese-gb2312 38) ?G)
 140 (modify-category-entry (make-char 'chinese-gb2312 39) ?Y)
 141 (let ((row 48))
 142   (while (< row 127)
 143     (modify-category-entry (make-char 'chinese-gb2312 row) ?C)
 144     (setq row (1+ row))))
 145
 146 ;; Chinese character set (BIG5)
 147
 148 (let ((generic-big5-1-char (make-char 'chinese-big5-1))
 149       (generic-big5-2-char (make-char 'chinese-big5-2)))
 150   (modify-syntax-entry generic-big5-1-char "w")
 151   (modify-syntax-entry generic-big5-2-char "w")
 152
 153   (modify-category-entry generic-big5-1-char ?c)
 154   (modify-category-entry generic-big5-2-char ?c)
 155
 156   (modify-category-entry generic-big5-1-char ?C)
 157   (modify-category-entry generic-big5-2-char ?C)
 158
 159   (modify-category-entry generic-big5-1-char ?\|)
 160   (modify-category-entry generic-big5-2-char ?\|))
 161
 162
 163 ;; Chinese character set (CNS11643)
 164
 165 (let ((cns-list '(chinese-cns11643-1
 166                   chinese-cns11643-2
 167                   chinese-cns11643-3
 168                   chinese-cns11643-4
 169                   chinese-cns11643-5
 170                   chinese-cns11643-6
 171                   chinese-cns11643-7))
 172       generic-char)
 173   (while cns-list
 174     (setq generic-char (make-char (car cns-list)))
 175     (modify-syntax-entry generic-char "w")
 176     (modify-category-entry generic-char ?c)
 177     (modify-category-entry generic-char ?C)
 178     (modify-category-entry generic-char ?|)
 179     (setq cns-list (cdr cns-list))))
 180
 181 ;; Cyrillic character set (ISO-8859-5)
 182
 183 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)
 184
 185 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ")
 186 (modify-syntax-entry ?\e,L-\e(B ".")
 187 (modify-syntax-entry ?\e,Lp\e(B ".")
 188 (modify-syntax-entry ?\e,L}\e(B ".")
 189 (let ((tbl (standard-case-table)))
 190   (set-case-syntax-pair ?\e,L!\e(B ?\e,Lq\e(B tbl)
 191   (set-case-syntax-pair ?\e,L"\e(B ?\e,Lr\e(B tbl)
 192   (set-case-syntax-pair ?\e,L#\e(B ?\e,Ls\e(B tbl)
 193   (set-case-syntax-pair ?\e,L$\e(B ?\e,Lt\e(B tbl)
 194   (set-case-syntax-pair ?\e,L%\e(B ?\e,Lu\e(B tbl)
 195   (set-case-syntax-pair ?\e,L&\e(B ?\e,Lv\e(B tbl)
 196   (set-case-syntax-pair ?\e,L'\e(B ?\e,Lw\e(B tbl)
 197   (set-case-syntax-pair ?\e,L(\e(B ?\e,Lx\e(B tbl)
 198   (set-case-syntax-pair ?\e,L)\e(B ?\e,Ly\e(B tbl)
 199   (set-case-syntax-pair ?\e,L*\e(B ?\e,Lz\e(B tbl)
 200   (set-case-syntax-pair ?\e,L+\e(B ?\e,L{\e(B tbl)
 201   (set-case-syntax-pair ?\e,L,\e(B ?\e,L|\e(B tbl)
 202   (set-case-syntax-pair ?\e,L.\e(B ?\e,L~\e(B tbl)
 203   (set-case-syntax-pair ?\e,L/\e(B ?\e,L\7f\e(B tbl)
 204   (set-case-syntax-pair ?\e,L0\e(B ?\e,LP\e(B tbl)
 205   (set-case-syntax-pair ?\e,L1\e(B ?\e,LQ\e(B tbl)
 206   (set-case-syntax-pair ?\e,L2\e(B ?\e,LR\e(B tbl)
 207   (set-case-syntax-pair ?\e,L3\e(B ?\e,LS\e(B tbl)
 208   (set-case-syntax-pair ?\e,L4\e(B ?\e,LT\e(B tbl)
 209   (set-case-syntax-pair ?\e,L5\e(B ?\e,LU\e(B tbl)
 210   (set-case-syntax-pair ?\e,L6\e(B ?\e,LV\e(B tbl)
 211   (set-case-syntax-pair ?\e,L7\e(B ?\e,LW\e(B tbl)
 212   (set-case-syntax-pair ?\e,L8\e(B ?\e,LX\e(B tbl)
 213   (set-case-syntax-pair ?\e,L9\e(B ?\e,LY\e(B tbl)
 214   (set-case-syntax-pair ?\e,L:\e(B ?\e,LZ\e(B tbl)
 215   (set-case-syntax-pair ?\e,L;\e(B ?\e,L[\e(B tbl)
 216   (set-case-syntax-pair ?\e,L<\e(B ?\e,L\\e(B tbl)
 217   (set-case-syntax-pair ?\e,L=\e(B ?\e,L]\e(B tbl)
 218   (set-case-syntax-pair ?\e,L>\e(B ?\e,L^\e(B tbl)
 219   (set-case-syntax-pair ?\e,L?\e(B ?\e,L_\e(B tbl)
 220   (set-case-syntax-pair ?\e,L@\e(B ?\e,L`\e(B tbl)
 221   (set-case-syntax-pair ?\e,LA\e(B ?\e,La\e(B tbl)
 222   (set-case-syntax-pair ?\e,LB\e(B ?\e,Lb\e(B tbl)
 223   (set-case-syntax-pair ?\e,LC\e(B ?\e,Lc\e(B tbl)
 224   (set-case-syntax-pair ?\e,LD\e(B ?\e,Ld\e(B tbl)
 225   (set-case-syntax-pair ?\e,LE\e(B ?\e,Le\e(B tbl)
 226   (set-case-syntax-pair ?\e,LF\e(B ?\e,Lf\e(B tbl)
 227   (set-case-syntax-pair ?\e,LG\e(B ?\e,Lg\e(B tbl)
 228   (set-case-syntax-pair ?\e,LH\e(B ?\e,Lh\e(B tbl)
 229   (set-case-syntax-pair ?\e,LI\e(B ?\e,Li\e(B tbl)
 230   (set-case-syntax-pair ?\e,LJ\e(B ?\e,Lj\e(B tbl)
 231   (set-case-syntax-pair ?\e,LK\e(B ?\e,Lk\e(B tbl)
 232   (set-case-syntax-pair ?\e,LL\e(B ?\e,Ll\e(B tbl)
 233   (set-case-syntax-pair ?\e,LM\e(B ?\e,Lm\e(B tbl)
 234   (set-case-syntax-pair ?\e,LN\e(B ?\e,Ln\e(B tbl)
 235   (set-case-syntax-pair ?\e,LO\e(B ?\e,Lo\e(B tbl))
 236
 237 ;; Devanagari character set
 238
 239 (let ((deflist  '(;; chars      syntax  category
 240                   ("\e$(5!!!"!#\e(B"      "w"     ?7) ; vowel-modifying diacritical mark
 241                                             ; chandrabindu, anuswar, visarga
 242                   ("\e$(5!$\e(B-\e$(5!2\e(B"        "w"     ?1) ; independent vowel
 243                   ("\e$(5!3\e(B-\e$(5!X\e(B"        "w"     ?0) ; consonant
 244                   ("\e$(5!Z\e(B-\e$(5!g\e(B"        "w"     ?8) ; matra
 245                   ("\e$(5!q\e(B-\e$(5!z\e(B"        "w"     ?6) ; digit
 246                   ))
 247       elm chars len syntax category to ch i)
 248   (while deflist
 249     (setq elm (car deflist))
 250     (setq chars (car elm)
 251           len (length chars)
 252           syntax (nth 1 elm)
 253           category (nth 2 elm)
 254           i 0)
 255     (while (< i len)
 256       (if (= (aref chars i) ?-)
 257           (setq i (1+ i)
 258                 to (aref chars i))
 259         (setq ch (aref chars i)
 260               to ch))
 261       (while (<= ch to)
 262         (modify-syntax-entry ch syntax)
 263         (modify-category-entry ch category)
 264         (setq ch (1+ ch)))
 265       (setq i (1+ i)))
 266     (setq deflist (cdr deflist))))
 267
 268 ;; Ethiopic character set
 269
 270 (modify-category-entry (make-char 'ethiopic) ?e)
 271 (modify-syntax-entry (make-char 'ethiopic) "w")
 272 (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)))
 273   (while chars
 274     (modify-syntax-entry (car chars) ".")
 275     (setq chars (cdr chars))))
 276
 277 ;; European character set (Latin-1,2,3,4,5)
 278
 279 (modify-category-entry (make-char 'latin-iso8859-1) ?l)
 280 (modify-category-entry (make-char 'latin-iso8859-2) ?l)
 281 (modify-category-entry (make-char 'latin-iso8859-3) ?l)
 282 (modify-category-entry (make-char 'latin-iso8859-4) ?l)
 283 (modify-category-entry (make-char 'latin-iso8859-9) ?l)
 284 (modify-category-entry (make-char 'latin-iso8859-14) ?l)
 285 (modify-category-entry (make-char 'latin-iso8859-15) ?l)
 286
 287 (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )
 288 (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )
 289 (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )
 290 (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )
 291 (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )
 292 (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )
 293 (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )
 294
 295 ;; Greek character set (ISO-8859-7)
 296
 297 (modify-category-entry (make-char 'greek-iso8859-7) ?g)
 298
 299 (let ((c 182))
 300   (while (< c 255)
 301     (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
 302     (setq c (1+ c))))
 303 (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
 304 (modify-syntax-entry ?\e,F7\e(B ".")
 305 (modify-syntax-entry ?\e,F;\e(B ".")
 306 (modify-syntax-entry ?\e,F=\e(B ".")
 307 (let ((tbl (standard-case-table)))
 308   (set-case-syntax-pair ?\e,FA\e(B ?\e,Fa\e(B tbl)
 309   (set-case-syntax-pair ?\e,FB\e(B ?\e,Fb\e(B tbl)
 310   (set-case-syntax-pair ?\e,FC\e(B ?\e,Fc\e(B tbl)
 311   (set-case-syntax-pair ?\e,FD\e(B ?\e,Fd\e(B tbl)
 312   (set-case-syntax-pair ?\e,FE\e(B ?\e,Fe\e(B tbl)
 313   (set-case-syntax-pair ?\e,FF\e(B ?\e,Ff\e(B tbl)
 314   (set-case-syntax-pair ?\e,FG\e(B ?\e,Fg\e(B tbl)
 315   (set-case-syntax-pair ?\e,FH\e(B ?\e,Fh\e(B tbl)
 316   (set-case-syntax-pair ?\e,FI\e(B ?\e,Fi\e(B tbl)
 317   (set-case-syntax-pair ?\e,FJ\e(B ?\e,Fj\e(B tbl)
 318   (set-case-syntax-pair ?\e,FK\e(B ?\e,Fk\e(B tbl)
 319   (set-case-syntax-pair ?\e,FL\e(B ?\e,Fl\e(B tbl)
 320   (set-case-syntax-pair ?\e,FM\e(B ?\e,Fm\e(B tbl)
 321   (set-case-syntax-pair ?\e,FN\e(B ?\e,Fn\e(B tbl)
 322   (set-case-syntax-pair ?\e,FO\e(B ?\e,Fo\e(B tbl)
 323   (set-case-syntax-pair ?\e,FP\e(B ?\e,Fp\e(B tbl)
 324   (set-case-syntax-pair ?\e,FQ\e(B ?\e,Fq\e(B tbl)
 325   (set-case-syntax-pair ?\e,FS\e(B ?\e,Fs\e(B tbl)
 326   (set-case-syntax-pair ?\e,FT\e(B ?\e,Ft\e(B tbl)
 327   (set-case-syntax-pair ?\e,FU\e(B ?\e,Fu\e(B tbl)
 328   (set-case-syntax-pair ?\e,FV\e(B ?\e,Fv\e(B tbl)
 329   (set-case-syntax-pair ?\e,FW\e(B ?\e,Fw\e(B tbl)
 330   (set-case-syntax-pair ?\e,FX\e(B ?\e,Fx\e(B tbl)
 331   (set-case-syntax-pair ?\e,FY\e(B ?\e,Fy\e(B tbl)
 332   (set-case-syntax-pair ?\e,FZ\e(B ?\e,Fz\e(B tbl)
 333   (set-case-syntax-pair ?\e,F[\e(B ?\e,F{\e(B tbl)
 334   (set-case-syntax-pair ?\e,F?\e(B ?\e,F~\e(B tbl)
 335   (set-case-syntax-pair ?\e,F>\e(B ?\e,F}\e(B tbl)
 336   (set-case-syntax-pair ?\e,F<\e(B ?\e,F|\e(B tbl)
 337   (set-case-syntax-pair ?\e,F6\e(B ?\e,F\\e(B tbl)
 338   (set-case-syntax-pair ?\e,F8\e(B ?\e,F]\e(B tbl)
 339   (set-case-syntax-pair ?\e,F9\e(B ?\e,F^\e(B tbl)
 340   (set-case-syntax-pair ?\e,F:\e(B ?\e,F_\e(B tbl))
 341
 342 ;; Hebrew character set (ISO-8859-8)
 343
 344 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)
 345
 346 (let ((c 224))
 347   (while (< c 251)
 348     (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")
 349     (setq c (1+ c))))
 350 (modify-syntax-entry (make-char 'hebrew-iso8859-8 160) "w") ; NBSP
 351
 352 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
 353
 354 (modify-category-entry (make-char 'indian-is13194) ?i)
 355 (modify-category-entry (make-char 'indian-2-column) ?I)
 356 (modify-category-entry (make-char 'indian-1-column) ?I)
 357
 358 (let ((deflist
 359         '(;; chars      syntax  category
 360           ("\e(5!"#\e(B"  "w"     ?7) ; vowel-modifying diacritical mark
 361                                     ; chandrabindu, anuswar, visarga
 362           ("\e(5$\e(B-\e(52\e(B"    "w"     ?1) ; base (independent) vowel
 363           ("\e(53\e(B-\e(5X\e(B"    "w"     ?0) ; consonant
 364           ("\e(5Z\e(B-\e(5g\e(B"    "w"     ?8) ; matra
 365           ("\e(5q\e(B-\e(5z\e(B"    "w"     ?6) ; digit
 366           ))
 367       elm chars len syntax category to ch i)
 368   (while deflist
 369     (setq elm (car deflist))
 370     (setq chars (car elm)
 371           len (length chars)
 372           syntax (nth 1 elm)
 373           category (nth 2 elm)
 374           i 0)
 375     (while (< i len)
 376       (if (= (aref chars i) ?-)
 377           (setq i (1+ i)
 378                 to (aref chars i))
 379         (setq ch (aref chars i)
 380               to ch))
 381       (while (<= ch to)
 382         (modify-syntax-entry ch syntax)
 383         (modify-category-entry ch category)
 384         (setq ch (1+ ch)))
 385       (setq i (1+ i)))
 386     (setq deflist (cdr deflist))))
 387
 388
 389 ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
 390
 391 (modify-category-entry (make-char 'katakana-jisx0201) ?k)
 392 (modify-category-entry (make-char 'latin-jisx0201) ?r)
 393 (modify-category-entry (make-char 'japanese-jisx0208) ?j)
 394 (modify-category-entry (make-char 'japanese-jisx0212) ?j)
 395 (modify-category-entry (make-char 'katakana-jisx0201) ?\|)
 396 (modify-category-entry (make-char 'japanese-jisx0208) ?\|)
 397 (modify-category-entry (make-char 'japanese-jisx0212) ?\|)
 398
 399 ;; JISX0208
 400 (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
 401 (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
 402 (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
 403 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
 404 (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)))
 405   (while chars
 406     (modify-syntax-entry (car chars) "w")
 407     (setq chars (cdr chars))))
 408 (modify-syntax-entry ?\\e$B!J\e(B "(\e$B!K\e(B")
 409 (modify-syntax-entry ?\\e$B!N\e(B "(\e$B!O\e(B")
 410 (modify-syntax-entry ?\\e$B!P\e(B "(\e$B!Q\e(B")
 411 (modify-syntax-entry ?\\e$B!V\e(B "(\e$B!W\e(B")
 412 (modify-syntax-entry ?\\e$B!X\e(B "(\e$B!Y\e(B")
 413 (modify-syntax-entry ?\\e$B!K\e(B ")\e$B!J\e(B")
 414 (modify-syntax-entry ?\\e$B!O\e(B ")\e$B!N\e(B")
 415 (modify-syntax-entry ?\\e$B!Q\e(B ")\e$B!P\e(B")
 416 (modify-syntax-entry ?\\e$B!W\e(B ")\e$B!V\e(B")
 417 (modify-syntax-entry ?\\e$B!Y\e(B ")\e$B!X\e(B")
 418
 419 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
 420 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
 421 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)
 422 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)
 423 (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)
 424 (let ((row 48))
 425   (while (< row 127)
 426     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
 427     (setq row (1+ row))))
 428 (modify-category-entry ?\e$B!<\e(B ?K)
 429 (let ((chars '(?\e$B!+\e(B ?\e$B!,\e(B)))
 430   (while chars
 431     (modify-category-entry (car chars) ?K)
 432     (modify-category-entry (car chars) ?H)
 433     (setq chars (cdr chars))))
 434 (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)))
 435   (while chars
 436     (modify-category-entry (car chars) ?C)
 437     (setq chars (cdr chars))))
 438
 439 ;; JISX0212
 440 (modify-syntax-entry (make-char 'japanese-jisx0212) "w")
 441 (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_")
 442 (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_")
 443 (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_")
 444
 445 (modify-category-entry (make-char 'japanese-jisx0212 ) ?C)
 446
 447 ;; JISX0201-Kana
 448 (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
 449 (let ((chars '(?\e(I!\e(B ?\e(I"\e(B ?\e(I#\e(B ?\e(I$\e(B ?\e(I%\e(B)))
 450   (while chars
 451     (modify-syntax-entry (car chars) ".")
 452     (setq chars (cdr chars))))
 453
 454 ;; Korean character set (KSC5601)
 455
 456 (modify-syntax-entry (make-char 'korean-ksc5601) "w")
 457 (modify-syntax-entry (make-char 'korean-ksc5601 33) "_")
 458 (modify-syntax-entry (make-char 'korean-ksc5601 34) "_")
 459 (modify-syntax-entry (make-char 'korean-ksc5601 38) "_")
 460 (modify-syntax-entry (make-char 'korean-ksc5601 39) "_")
 461 (modify-syntax-entry (make-char 'korean-ksc5601 40) "_")
 462 (modify-syntax-entry (make-char 'korean-ksc5601 41) "_")
 463
 464 (modify-category-entry (make-char 'korean-ksc5601) ?h)
 465 (modify-category-entry (make-char 'korean-ksc5601 35) ?A)
 466 (modify-category-entry (make-char 'korean-ksc5601 37) ?G)
 467 (modify-category-entry (make-char 'korean-ksc5601 42) ?H)
 468 (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
 469 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
 470
 471 ;; Lao character set
 472
 473 (modify-category-entry (make-char 'lao) ?o)
 474
 475 (let ((deflist  '(;; chars      syntax  category
 476                   ("\e(1!\e(B-\e(1N\e(B"    "w"     ?0) ; consonant
 477                   ("\e(1PRS]`\e(B-\e(1d\e(B"        "w"     ?1) ; vowel base
 478                   ("\e(1QT\e(B-\e(1W[m\e(B" "w"     ?2) ; vowel upper
 479                   ("\e(1XY\e(B"           "w"     ?3) ; vowel lower
 480                   ("\e(1h\e(B-\e(1l\e(B"    "w"     ?4) ; tone mark
 481                   ("\e(1\\e(B"            "w"     ?9) ; semivowel lower
 482                   ("\e(1p\e(B-\e(1y\e(B"    "w"     ?6) ; digit
 483                   ("\e(1Of\e(B"           "_"     ?5) ; symbol
 484                   ))
 485       elm chars len syntax category to ch i)
 486   (while deflist
 487     (setq elm (car deflist))
 488     (setq chars (car elm)
 489           len (length chars)
 490           syntax (nth 1 elm)
 491           category (nth 2 elm)
 492           i 0)
 493     (while (< i len)
 494       (if (= (aref chars i) ?-)
 495           (setq i (1+ i)
 496                 to (aref chars i))
 497         (setq ch (aref chars i)
 498               to ch))
 499       (while (<= ch to)
 500         (modify-syntax-entry ch syntax)
 501         (modify-category-entry ch category)
 502         (setq ch (1+ ch)))
 503       (setq i (1+ i)))
 504     (setq deflist (cdr deflist))))
 505
 506 ;; Thai character set (TIS620)
 507
 508 (modify-category-entry (make-char 'thai-tis620) ?t)
 509
 510 (let ((deflist  '(;; chars      syntax  category
 511                   ("\e,T!\e(B-\e,TCEG\e(B-\e,TN\e(B"  "w"     ?0) ; consonant
 512                   ("\e,TDFPRS`\e(B-\e,Te\e(B"       "w"     ?1) ; vowel base
 513                   ("\e,TQT\e(B-\e,TWgn\e(B" "w"     ?2) ; vowel upper
 514                   ("\e,TX\e(B-\e,TZ\e(B"    "w"     ?3) ; vowel lower
 515                   ("\e,Th\e(B-\e,Tm\e(B"    "w"     ?4) ; tone mark
 516                   ("\e,Tp\e(B-\e,Ty\e(B"    "w"     ?6) ; digit
 517                   ("\e,TOf_oz{\e(B"       "_"     ?5) ; symbol
 518                   ))
 519       elm chars len syntax category to ch i)
 520   (while deflist
 521     (setq elm (car deflist))
 522     (setq chars (car elm)
 523           len (length chars)
 524           syntax (nth 1 elm)
 525           category (nth 2 elm)
 526           i 0)
 527     (while (< i len)
 528       (if (= (aref chars i) ?-)
 529           (setq i (1+ i)
 530                 to (aref chars i))
 531         (setq ch (aref chars i)
 532               to ch))
 533       (while (<= ch to)
 534         (modify-syntax-entry ch syntax)
 535         (modify-category-entry ch category)
 536         (setq ch (1+ ch)))
 537       (setq i (1+ i)))
 538     (setq deflist (cdr deflist))))
 539
 540 ;; Tibetan character set
 541
 542 (modify-category-entry (make-char 'tibetan) ?q)
 543 (modify-category-entry (make-char 'tibetan-1-column) ?q)
 544
 545 (let ((deflist  '(;; chars             syntax category
 546                   ("\e$(7"!\e(B-\e$(7"J"K\e(B"              "w"     ?0) ; consonant
 547                   ("\e$(7#!\e(B-\e$(7#J#K#L#M!"!#\e(B"       "w"     ?0) ;
 548                   ("\e$(7$!\e(B-\e$(7$e\e(B"              "w"     ?0) ;
 549                   ("\e$(7%!\e(B-\e$(7%u\e(B"              "w"     ?0) ;
 550                   ("\e$(7"S"["\"]"^"a\e(B"       "w"      ?2) ; upper vowel
 551                   ("\e$(7"_"c"d"g"h"i"j"k"l\e(B" "w"      ?2) ; upper modifier
 552                   ("\e$(7!I"Q"R"U"e!e!g\e(B"       "w"    ?3) ; lowel vowel/modifier
 553                   ("\e$(7!P\e(B-\e$(7!Y!Z\e(B-\e$(7!c\e(B"            "w"     ?6) ; digit
 554                   ("\e$(7!;!=\e(B-\e$(7!B!D"`\e(B"        "."     ?|) ; line-break char
 555                   ("\e$(8!;!=!?!@!A!D"`\e(B"            "."     ?|) ;
 556                   ("\e$(7!8!;!=\e(B-\e$(7!B!D"`!m!d\e(B"  "."     ?>) ; prohibition
 557                   ("\e$(8!;!=!?!@!A!D"`\e(B"            "."     ?>) ;
 558                   ("\e$(7!0\e(B-\e$(7!:!l#R#S"f\e(B"      "."     ?<) ; prohibition
 559                   ("\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
 560                   ))
 561       elm chars len syntax category to ch i)
 562   (while deflist
 563     (setq elm (car deflist))
 564     (setq chars (car elm)
 565           len (length chars)
 566           syntax (nth 1 elm)
 567           category (nth 2 elm)
 568           i 0)
 569     (while (< i len)
 570       (if (= (aref chars i) ?-)
 571           (setq i (1+ i)
 572                 to (aref chars i))
 573         (setq ch (aref chars i)
 574               to ch))
 575       (while (<= ch to)
 576         (modify-syntax-entry ch syntax)
 577         (modify-category-entry ch category)
 578         (setq ch (1+ ch)))
 579       (setq i (1+ i)))
 580     (setq deflist (cdr deflist))))
 581
 582 ;; Vietnamese character set
 583
 584 (let ((lower (make-char 'vietnamese-viscii-lower))
 585       (upper (make-char 'vietnamese-viscii-upper)))
 586   (modify-syntax-entry lower "w")
 587   (modify-syntax-entry upper "w")
 588   (modify-category-entry lower ?v)
 589   (modify-category-entry upper ?v)
 590   (modify-category-entry lower ?l)      ; To make a word with
 591   (modify-category-entry upper ?l)      ; latin characters.
 592   )
 593
 594 (let ((tbl (standard-case-table))
 595       (i 32))
 596   (while (< i 128)
 597     (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i)
 598                           (make-char 'vietnamese-viscii-lower i)
 599                           tbl)
 600     (setq i (1+ i))))
 601
 602 \f
 603 ;;; Setting word boundary.
 604
 605 (setq word-combining-categories
 606       '((?l . ?l)))
 607
 608 (setq word-separating-categories        ;  (2-byte character sets)
 609       '((?A . ?K)                       ; Alpha numeric - Katakana
 610         (?A . ?C)                       ; Alpha numeric - Chinese
 611         (?H . ?A)                       ; Hiragana - Alpha numeric
 612         (?H . ?K)                       ; Hiragana - Katakana
 613         (?H . ?C)                       ; Hiragana - Chinese
 614         (?K . ?A)                       ; Katakana - Alpha numeric
 615         (?K . ?C)                       ; Katakana - Chinese
 616         (?C . ?A)                       ; Chinese - Alpha numeric
 617         (?C . ?K)                       ; Chinese - Katakana
 618         ))
 619
 620 \f
 621 ;; For each character set, put the information of the most proper
 622 ;; coding system to encode it by `preferred-coding-system' property.
 623
 624 (let ((l '((latin-iso8859-1     . iso-latin-1)
 625            (latin-iso8859-2     . iso-latin-2)
 626            (latin-iso8859-3     . iso-latin-3)
 627            (latin-iso8859-4     . iso-latin-4)
 628            (thai-tis620         . thai-tis620)
 629            (greek-iso8859-7     . greek-iso-8bit)
 630            (arabic-iso8859-6    . iso-2022-7bit)
 631            (hebrew-iso8859-8    . hebrew-iso-8bit)
 632            (katakana-jisx0201   . japanese-shift-jis)
 633            (latin-jisx0201      . japanese-shift-jis)
 634            (cyrillic-iso8859-5  . cyrillic-iso-8bit)
 635            (latin-iso8859-9     . iso-latin-5)
 636            (japanese-jisx0208-1978 . iso-2022-jp)
 637            (chinese-gb2312      . cn-gb-2312)
 638            (japanese-jisx0208   . iso-2022-jp)
 639            (korean-ksc5601      . iso-2022-kr)
 640            (japanese-jisx0212   . iso-2022-jp)
 641            (chinese-cns11643-1  . iso-2022-cn)
 642            (chinese-cns11643-2  . iso-2022-cn)
 643            (chinese-big5-1      . chinese-big5)
 644            (chinese-big5-2      . chinese-big5)
 645            (chinese-sisheng     . iso-2022-7bit)
 646            (ipa                 . iso-2022-7bit)
 647            (vietnamese-viscii-lower . vietnamese-viscii)
 648            (vietnamese-viscii-upper . vietnamese-viscii)
 649            (arabic-digit        . iso-2022-7bit)
 650            (arabic-1-column     . iso-2022-7bit)
 651            (ascii-right-to-left . iso-2022-7bit)
 652            (lao                 . lao)
 653            (arabic-2-column     . iso-2022-7bit)
 654            (indian-is13194      . devanagari)
 655            (indian-1-column     . devanagari)
 656            (tibetan-1-column    . tibetan)
 657            (ethiopic            . iso-2022-7bit)
 658            (chinese-cns11643-3  . iso-2022-cn)
 659            (chinese-cns11643-4  . iso-2022-cn)
 660            (chinese-cns11643-5  . iso-2022-cn)
 661            (chinese-cns11643-6  . iso-2022-cn)
 662            (chinese-cns11643-7  . iso-2022-cn)
 663            (indian-2-column     . devanagari)
 664            (tibetan             . tibetan)
 665            (latin-iso8859-14    . iso-latin-8)
 666            (latin-iso8859-15    . iso-latin-9))))
 667   (while l
 668     (put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l)))
 669     (setq l (cdr l))))
 670
 671 \f
 672 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
 673 ;; SPACE and NEWLIE are already set.  Also put `nospace-between-words'
 674 ;; property to the charsets.
 675 (let ((l '(katakana-jisx0201
 676            japanese-jisx0208 japanese-jisx0212
 677            chinese-gb2312 chinese-big5-1 chinese-big5-2)))
 678   (while l
 679     (aset auto-fill-chars (make-char (car l)) t)
 680     (put-charset-property (car l) 'nospace-between-words t)
 681     (setq l (cdr l))))
 682
 683 ;;; Local Variables:
 684 ;;; coding: iso-2022-7bit
 685 ;;; End:
 686
 687 ;;; end of characters.el