Mercurial > hg > xemacs-beta

comparison lisp/mule/korean.el @ 4072:aa28d959af41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents 2923009caf47
children 1d74a1d115ee
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
44 ; )) 44 ; ))
45 45
46 ;; Syntax of Korean characters. 46 ;; Syntax of Korean characters.
47 (loop for row from 33 to 34 do 47 (loop for row from 33 to 34 do
48 (modify-syntax-entry `[korean-ksc5601 ,row] ".")) 48 (modify-syntax-entry `[korean-ksc5601 ,row] "."))
49 (loop for row from 35 to 37 do
50 (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
51 (loop for row from 38 to 41 do 49 (loop for row from 38 to 41 do
52 (modify-syntax-entry `[korean-ksc5601 ,row] ".")) 50 (modify-syntax-entry `[korean-ksc5601 ,row] "."))
53 (loop for row from 42 to 126 do
54 (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
55 51
56 ;; Setting for coding-system and quail were moved to 52 ;; Setting for coding-system and quail were moved to
57 ;; language/korean.el. 53 ;; language/korean.el.
58 54
59 (make-coding-system 55 (make-coding-system