git.chise.org Git - chise/xemacs-chise.git-/blob - lisp/mule/korean.el

   1 ;;; korean.el --- Support for Korean -*- coding: iso-2022-7bit; -*-
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 1997 MORIOKA Tomohiko
   6
   7 ;; Keywords: multilingual, Korean
   8
   9 ;; This file is part of XEmacs.
  10
  11 ;; XEmacs is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; XEmacs is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  24 ;; 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; For Korean, the character set KSC5601 is supported.
  29
  30 ;;; Code:
  31
  32 ;; Syntax of Korean characters.
  33 (loop for row from 33 to  34 do
  34       (modify-syntax-entry `[korean-ksc5601 ,row] "."))
  35 (loop for row from 35 to  37 do
  36       (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
  37 (loop for row from 38 to  41 do
  38       (modify-syntax-entry `[korean-ksc5601 ,row] "."))
  39 (loop for row from 42 to 126 do
  40       (modify-syntax-entry `[korean-ksc5601 ,row] "w"))
  41
  42 ;; Setting for coding-system and quail were moved to
  43 ;; language/korean.el.
  44
  45 (make-coding-system
  46  'iso-2022-int-1 'iso2022
  47  "ISO-2022-INT-1"
  48  '(charset-g0 ascii
  49    charset-g1 korean-ksc5601
  50    short t
  51    seven t
  52    lock-shift t
  53    mnemonic "INT-1"))
  54
  55 ;; EGG specific setup
  56 (define-egg-environment 'korean
  57   "Korean settings for egg"
  58   (lambda ()
  59     (when (not (featurep 'egg-kor))
  60       (load "its-hangul")
  61       (setq its:*standard-modes*
  62             (cons (its:get-mode-map "hangul") its:*standard-modes*))
  63       (provide 'egg-kor))
  64     (setq wnn-server-type 'kserver)
  65     (setq egg-default-startup-file "eggrc-wnn")
  66     (setq-default its:*current-map* (its:get-mode-map "hangul"))))
  67 \f
  68 ;; (make-coding-system
  69 ;;  'korean-iso-8bit 2 ?K
  70 ;;  "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)"
  71 ;;  '(ascii korean-ksc5601 nil nil
  72 ;;    nil ascii-eol ascii-cntl)
  73 ;;  '((safe-charsets ascii korean-ksc5601)
  74 ;;    (mime-charset . euc-kr)))
  75
  76 (make-coding-system
  77  'euc-kr 'iso2022
  78  "Coding-system of Korean EUC (Extended Unix Code)."
  79  '(charset-g0 ascii
  80    charset-g1 korean-ksc5601
  81    mnemonic "ko/EUC"
  82    eol-type nil))
  83
  84 ;;(define-coding-system-alias 'euc-kr 'euc-korea)
  85
  86 (define-coding-system-alias 'korean-euc 'euc-kr)
  87
  88 ;; (make-coding-system
  89 ;;  'iso-2022-kr 2 ?k
  90 ;;  "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)."
  91 ;;  '(ascii (nil korean-ksc5601) nil nil
  92 ;;          nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
  93 ;;          designation-bol)
  94 ;;  '((safe-charsets ascii korean-ksc5601)
  95 ;;    (mime-charset . iso-2022-kr)))
  96
  97 (make-coding-system
  98  'iso-2022-kr 'iso2022
  99  "Coding-System used for communication with mail in Korea."
 100  '(charset-g0 ascii
 101    charset-g1 korean-ksc5601
 102    force-g1-on-output t
 103    seven t
 104    lock-shift t
 105    mnemonic "Ko/7bit"
 106    eol-type lf))
 107
 108 ;; (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
 109
 110 (set-language-info-alist
 111  "Korean" '((setup-function . setup-korean-environment-internal)
 112             (exit-function . exit-korean-environment)
 113             (tutorial . "TUTORIAL.ko")
 114             (charset korean-ksc5601)
 115             (coding-system euc-kr iso-2022-kr)
 116             (coding-priority euc-kr iso-2022-kr)
 117             (input-method . "korean-hangul")
 118             (features korea-util)
 119             (sample-text . "Hangul (\e$(CGQ1[\e(B)        \e$(C>H3gGO<<?d\e(B, \e$(C>H3gGO=J4O1n\e(B")
 120             (documentation . "\
 121 The following key bindings are available while using Korean input methods:
 122   Shift-SPC:    toggle-korean-input-mthod
 123   Control-F9:   quail-hangul-switch-symbol-ksc
 124   F9:           quail-hangul-switch-hanja")
 125             ))
 126
 127 ;;; korean.el ends here