Renamed from devanagari.el, and completely re-written.

[bpt/emacs.git] / leim / quail / symbol-ksc.el

diff --git a/leim/quail/symbol-ksc.el b/leim/quail/symbol-ksc.el
index 108af45..5ccf9dd 100644 (file)
--- a/leim/quail/symbol-ksc.el
+++ b/leim/quail/symbol-ksc.el
@@ -1,4 +1,4 @@
-;;; quail/symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601)
+;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601)
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -26,20 +26,15 @@
 ;;; 94.11.04   Updated for Mule Ver.2.1 (koaunghi.un@zdv.uni-tuebingen.de)
 ;;; 96.09.23   Updated for emacs-19.33-beta (koaunghi.un@zdv.uni-tuebingen.de)
 
+;;; Commentary:
 
 ;;; Code:
 
 (require 'quail)
-
-(defun quail-hangul-switch-back (key idx)
-  (if (not input-method-history
-      (toggle-input-method t)
-    (quail-delete-region)
-    (activate-input-method (car input-method-history))
-  (throw 'quail-tag nil))
+(require 'korea-util)
 
 (quail-define-package
- "korean-symbol" "Korean" "\e$(CGQ1[=I9z@T7BG%\e(B" t
+ "korean-symbol" "Korean" "\e$(C=I9z\e(B" t
  "\e$(CGQ1[=I9z@T7BG%\e(B:
   \e$(C!<\e(B(\e$(C!=0}H#?-1b!<\e(Barrow\e$(C!=H-;l!<\e(Bsex\e$(C!=!N!O!<\e(Bindex\e$(C!=C7@Z\e(B  \e$(C!<\e(Baccent\e$(C!=>G<>F.\e(B
   \e$(C!<\e(B)\e$(C!=0}H#4]1b!<\e(Bmusic\e$(C!=@=>G!<\e(Bdot\e$(C!=A!\e(B  \e$(C!<\e(Bquote\e$(C!=5{?HG%!<\e(Bxtext\e$(C!=!W!X"R"."/\e(B
@@ -53,11 +48,9 @@
   \e$(C!<\e(Brom\e$(C!=%!%"%#!&\e(B \e$(C!<\e(Bscan\e$(C!=)")#)$!&\e(B \e$(C!<\e(Bkata\e$(C!=+"+#+$\e(B
   \e$(C!<\e(Bojaso\e$(C!=(1!-(>!<\e(Bpjaso\e$(C!=)1!-)>!<\e(Boeng\e$(C!=(M!-(f!<\e(Bpeng\e$(C!=)M!-)f\e(B
   \e$(C!<\e(Bogana\e$(C!=(?!-(L!<\e(Bpgana\e$(C!=)?!-)L!<\e(Bonum\e$(C!=(g!-(u!<\e(Bpnum\e$(C!=)g!-)u\e(B
-  \e$(C!<@Z<R!=\e(B2\e$(C9z=D\e(B + \e$(C$U\e(B(S) \e$(C$o\e(B(t_) \e$(C$p\e(B(DD) \e$(C$q\e(B(D) \e$(C$v\e(B(G) \e$(C$u\e(B(GG) \e$(C$}\e(B(uk)")
+  \e$(C!<@Z<R!=\e(B2\e$(C9z=D\e(B + \e$(C$U\e(B(S) \e$(C$o\e(B(t_) \e$(C$q\e(B(D) \e$(C$p\e(B(DD) \e$(C$a\e(B(aD) \e$(C$v\e(B(_d) \e$(C$u\e(B(G) \e$(C$}\e(B(uk)")
 
 (quail-define-rules
- ("\\" quail-hangul-switch-back)
-
  ("("  "\e$(C!2!4!6!8!:!<\e(B")
  (")"  "\e$(C!3!5!7!9!;!=\e(B")
  ("math"       "\e$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"""#"$"1"2"3\e(B")
@@ -122,7 +115,7 @@
  ("k"  "\e$(C$?\e(B")
  ("o"  "\e$(C$@\e(B")
  ("i"  "\e$(C$A\e(B")
- ("I"  "\e$(C$B\e(B")
+ ("O"  "\e$(C$B\e(B")
  ("j"  "\e$(C$C\e(B")
  ("p"  "\e$(C$D\e(B")
  ("u"  "\e$(C$E\e(B")
@@ -133,7 +126,7 @@
  ("hl" "\e$(C$J\e(B")
  ("y"  "\e$(C$K\e(B")
  ("n"  "\e$(C$L\e(B")
- ("nh" "\e$(C$M\e(B")
+ ("nj" "\e$(C$M\e(B")
  ("np" "\e$(C$N\e(B")
  ("nl" "\e$(C$O\e(B")
  ("b"  "\e$(C$P\e(B")
@@ -148,7 +141,7 @@
  ("fqt"        "\e$(C$[\e(B")
  ("fe" "\e$(C$Z\e(B")
  ("ft_"        "\e$(C$\\e(B")
- ("fG" "\e$(C$]\e(B")
+ ("f_d"        "\e$(C$]\e(B")
  ("aq" "\e$(C$^\e(B")
  ("at" "\e$(C$_\e(B")
  ("at_"        "\e$(C$`\e(B")
@@ -169,11 +162,11 @@
  ("t_" "\e$(C$o\e(B")
  ("DD" "\e$(C$p\e(B")
  ("D"  "\e$(C$q\e(B")
- ("Dw" "\e$(C$r\e(B")
+ ("Dt" "\e$(C$r\e(B")
  ("Dt_"        "\e$(C$s\e(B")
  ("vD" "\e$(C$t\e(B")
- ("GG" "\e$(C$u\e(B")
- ("G"  "\e$(C$v\e(B")
+ ("G"  "\e$(C$u\e(B")
+ ("_d" "\e$(C$v\e(B")
  ("yi" "\e$(C$w\e(B")
  ("yO" "\e$(C$x\e(B")
  ("yl" "\e$(C$y\e(B")
@@ -204,3 +197,5 @@
  ("kata"       "\e$(C+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+[+Z+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v\e(B")
  ("Russ"       "\e$(C,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A\e(B")
  ("russ"       "\e$(C,Q,R,S,T,U,V,W,X,Y,[,Z,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q\e(B"))
+
+;;; symbol-ksc.el ends here