Mercurial > emacs

comparison lisp/language/korean.el @ 89483:2f877ed80fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 12:53:41 +0000
parents 375f2633d815 bafe04d82c5d
children 68c22ea6027c
comparison
equal deleted inserted replaced
88123:375f2633d815 89483:2f877ed80fa6
1 ;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1 ;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2003
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H13PRO009
5 8
6 ;; Keywords: multilingual, Korean 9 ;; Keywords: multilingual, Korean
7 10
8 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
9 12
26 29
27 ;; For Korean, the character set KSC5601 is supported. 30 ;; For Korean, the character set KSC5601 is supported.
28 31
29 ;;; Code: 32 ;;; Code:
30 33
31 (make-coding-system 34 (define-coding-system 'korean-iso-8bit
32 'korean-iso-8bit 2 ?K 35 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)."
33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)." 36 :coding-type 'iso-2022
34 '(ascii korean-ksc5601 nil nil 37 :mnemonic ?K
35 nil ascii-eol ascii-cntl) 38 :designation [ascii korean-ksc5601 nil nil]
36 '((safe-charsets ascii korean-ksc5601) 39 :charset-list '(ascii korean-ksc5601)
37 (mime-charset . euc-kr))) 40 :mime-charset 'euc-kr)
38 41
39 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) 42 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
40 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) 43 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
41 44
42 (make-coding-system 45 (define-coding-system 'iso-2022-kr
43 'iso-2022-kr 2 ?k 46 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)."
44 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." 47 :coding-type 'iso-2022
45 '(ascii (nil korean-ksc5601) nil nil 48 :mnemonic ?k
46 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil 49 :designation [ascii (nil korean-ksc5601) nil nil]
47 designation-bol) 50 :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift
48 '((safe-charsets ascii korean-ksc5601) 51 designation-bol)
49 (mime-charset . iso-2022-kr))) 52 :charset-list '(ascii korean-ksc5601)
53 :mime-charset 'iso-2022-kr)
50 54
51 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) 55 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
52 56
53 (set-language-info-alist 57 (set-language-info-alist
54 "Korean" '((setup-function . setup-korean-environment-internal) 58 "Korean" '((setup-function . setup-korean-environment-internal)