Add arch taglines

[bpt/emacs.git] / leim / quail / hangul.el

diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index d742417..4d1b10e 100644 (file)
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -1,4 +1,4 @@
-;;; quail/hangul.el -- Quail package for inputting Korean Hangul characters
+;;; hangul.el --- Quail package for inputting Korean Hangul characters  -*-coding: iso-2022-7bit;-*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -22,15 +22,15 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;; This file defines korean-hangul keyboards:
+;; - hangul keyboard type 2 keyboard input method
+
 ;;; Code:
 
 (require 'quail)
-
-(defun quail-hangul-switch-to-symbol-ksc (&rest ignore)
-  "Swith to `korean-symbol' package."
-  (quail-delete-region)
-  (select-input-method "korean-symbol")
-  (throw 'quail-tag nil))
+(require 'korea-util)
 
 (quail-define-package
  "korean-hangul" "Korean" "\e$(CGQ\e(B2"
@@ -49,19 +49,17 @@ The key sequence \"Z<key>\" can be used for \"\e$(C#0\e(B..\e$(C#A\e(B..\e$(C#a\e(B..\
 The key sequence \"H<key-sequence>\" can be used for \"\e$(C$U$V\e(B...\".
 The key sequnece \"S<key>\" can be used for such symbols as \"\e$(C!M!L"6\e(B...\".
 
-You can use the key M-i to know the avairable key combination.
-For instance, typing \"S\" followed by \"M-i\" will tell you
+You can use the key TAB to know the available key combination.
+For instance, typing \"S\" followed by TAB will tell you
  which key you should type to input some specific symbol.
 --- Example ---
 <key sequence>         r       k       r       k
 <string inserted>      \e$(C$!\e(B       \e$(C0!\e(B       \e$(C0"\e(B       \e$(C0!0!\e(B
-<key sequence>         r       k       r       <M-SP>  k
+<key sequence>         r       k       r       <C-SP>  k
 <string inserted>      \e$(C$!\e(B       \e$(C0!\e(B       \e$(C0"\e(B       \e$(C0"\e(B       \e$(C0"$?\e(B"
  nil t t nil nil nil t)
 
 (quail-define-rules
- ("\\" quail-hangul-switch-to-symbol-ksc)
-
  ("r"  ?\e$(C$!\e(B)
  ("s"  ?\e$(C$$\e(B)
  ("e"  ?\e$(C$'\e(B)
@@ -76,14 +74,14 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("x"  ?\e$(C$<\e(B)
  ("v"  ?\e$(C$=\e(B)
  ("g"  ?\e$(C$>\e(B)
- 
+
  ("R"  ?\e$(C$"\e(B)
  ("E"  ?\e$(C$(\e(B)
  ("Q"  ?\e$(C$3\e(B)
  ("W"  ?\e$(C$9\e(B)
  ("T"  ?\e$(C$6\e(B)
  ("P"  ?\e$(C$F\e(B)
- 
+
  ("k"  ?\e$(C$?\e(B)
  ("i"  ?\e$(C$A\e(B)
  ("j"  ?\e$(C$C\e(B)
@@ -97,7 +95,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("l"  ?\e$(C$S\e(B)
  ("o"  ?\e$(C$@\e(B)
  ("O"  ?\e$(C$B\e(B)
- 
+
  ("rk" ?\e$(C0!\e(B)
  ("rkr"        ?\e$(C0"\e(B)
  ("rks"        ?\e$(C0#\e(B)
@@ -944,7 +942,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("ahkT"       ?\e$(C8|\e(B)
  ("ahkd"       ?\e$(C8}\e(B)
  ("ahl"        ?\e$(C8~\e(B)
- 
+
  ("ahls"       ?\e$(C9!\e(B)
  ("ahlf"       ?\e$(C9"\e(B)
  ("ahlq"       ?\e$(C9#\e(B)
@@ -979,7 +977,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("anls"       ?\e$(C9@\e(B)
  ("anlf"       ?\e$(C9A\e(B)
  ("ab" ?\e$(C9B\e(B)
- 
+
  ("abs"        ?\e$(C9C\e(B)
  ("abf"        ?\e$(C9D\e(B)
  ("aba"        ?\e$(C9E\e(B)
@@ -1674,14 +1672,6 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("wkT"        ?\e$(C@d\e(B)
  ("wkd"        ?\e$(C@e\e(B)
  ("wkw"        ?\e$(C@f\e(B)
- ("Or" ?\e$(C@h\e(B)
- ("Os" ?\e$(C@i\e(B)
- ("Of" ?\e$(C@j\e(B)
- ("Oa" ?\e$(C@k\e(B)
- ("Oq" ?\e$(C@l\e(B)
- ("Ot" ?\e$(C@m\e(B)
- ("OT" ?\e$(C@n\e(B)
- ("Od" ?\e$(C@o\e(B)
  ("wo" ?\e$(C@g\e(B)
  ("wor"        ?\e$(C@h\e(B)
  ("wos"        ?\e$(C@i\e(B)
@@ -2458,7 +2448,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("glq"        ?\e$(CH|\e(B)
  ("glt"        ?\e$(CH}\e(B)
  ("gld"        ?\e$(CH~\e(B)
- 
+
  ("Z!" ?\e$(C#!\e(B)
  ("Z\""        ?\e$(C#"\e(B)
  ("Z#" ?\e$(C##\e(B)
@@ -2553,7 +2543,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("Z|" ?\e$(C#|\e(B)
  ("Z}" ?\e$(C#}\e(B)
  ("Z^-"        ?\e$(C#~\e(B)
- 
+
  ("HS" ?\e$(C$U\e(B)
  ("Hse"        ?\e$(C$V\e(B)
  ("Hst"        ?\e$(C$W\e(B)
@@ -2596,7 +2586,7 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("Hbl"        ?\e$(C$|\e(B)
  ("H." ?\e$(C$}\e(B)
  ("H.l"        ?\e$(C$~\e(B)
- 
+
  ("SY" ?\e$(C!M\e(B)
  ("SP" ?\e$(C!L\e(B)
  ("S%" ?\e$(C"6\e(B)
@@ -2612,3 +2602,6 @@ For instance, typing \"S\" followed by \"M-i\" will tell you
  ("SA" ?\e$(C!J\e(B)
  ("SC/"        ?\e$(C!K\e(B)
  ("SF" ?\e$(C"5\e(B))
+
+;;; arch-tag: 26bc93fc-64ee-4fb1-b26d-22220d132dbe
+;;; hangul.el ends here