comparison lisp/mule/korean.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children aa28d959af41
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; For Korean, the character set KSC5601 is supported. 28 ;; For Korean, the character set KSC5601 is supported.
29 29
30 ;;; Code: 30 ;;; Code:
31
32 ; (make-charset 'korean-ksc5601
33 ; "KSC5601 Korean Hangul and Hanja: ISO-IR-149"
34 ; '(dimension
35 ; 2
36 ; registry "KSC5601.1989"
37 ; chars 94
38 ; columns 2
39 ; direction l2r
40 ; final ?C
41 ; graphic 0
42 ; short-name "KSC5601"
43 ; long-name "KSC5601 (Korean): ISO-IR-149"
44 ; ))
31 45
32 ;; Syntax of Korean characters. 46 ;; Syntax of Korean characters.
33 (loop for row from 33 to 34 do 47 (loop for row from 33 to 34 do
34 (modify-syntax-entry `[korean-ksc5601 ,row] ".")) 48 (modify-syntax-entry `[korean-ksc5601 ,row] "."))
35 (loop for row from 35 to 37 do 49 (loop for row from 35 to 37 do