Update copyright for years from Emacs 21 to present (mainly adding

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

diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index 727eea2..0ed4675 100644 (file)
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -1,7 +1,9 @@
-;;; 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.
+;; Copyright (C) 2002, 2006  Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H14PRO021
 
 ;; Keywords: multilingual, input method, Korean, Hangul
 
@@ -19,18 +21,18 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, 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)
-  (activate-input-method "korean-symbol")
-  (throw 'quail-tag nil))
+(require 'korea-util)
 
 (quail-define-package
  "korean-hangul" "Korean" "\e$(CGQ\e(B2"
@@ -49,7 +51,7 @@ 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 TAB to know the avairable key combination.
+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 ---
@@ -60,8 +62,6 @@ For instance, typing \"S\" followed by TAB will tell you
  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 +76,14 @@ For instance, typing \"S\" followed by TAB 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 +97,7 @@ For instance, typing \"S\" followed by TAB 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 +944,7 @@ For instance, typing \"S\" followed by TAB 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 +979,7 @@ For instance, typing \"S\" followed by TAB 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 +1674,6 @@ For instance, typing \"S\" followed by TAB 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 +2450,7 @@ For instance, typing \"S\" followed by TAB 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 +2545,7 @@ For instance, typing \"S\" followed by TAB 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 +2588,7 @@ For instance, typing \"S\" followed by TAB 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 +2604,6 @@ For instance, typing \"S\" followed by TAB 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