Remove the "finish" state and change mode to emacs-lisp.

[m17n/m17n-db.git] / ar-kbd.mim

diff --git a/ar-kbd.mim b/ar-kbd.mim
index 7a6e2ae..b9818f1 100644 (file)
--- a/ar-kbd.mim
+++ b/ar-kbd.mim
@@ -1,5 +1,5 @@
-;; ar-kdb.mim -- Arabic input method with Arabic keyboad layout
-;; Copyright (C) 2004
+;; ar-kbd.mim -- Arabic input method with Arabic keyboad layout
+;; Copyright (C) 2004, 2005
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H15PRO112
 
@@ -21,10 +21,10 @@
 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; <li> ar-kdb.mim
-;;;
-;;; Input method for Arabic simulating Arabic keyboard layout (MS
-;;; Windows).
+(input-method ar kbd)
+
+(description "Input Method for Arabic simulating Arabic keyboard (MS Windows).
+")
 
 (title "ض")
 
@@ -78,8 +78,8 @@
   ("." "ز")
   ("/" "ظ")
 
-  ("(" ")")
-  (")" "(")
+  ("\(" "\)")
+  ("\)" "\(")
   ("~" "ّ")
 
   ("Q" "َ")
@@ -92,8 +92,8 @@
   ("I" "÷")
   ("O" "×")
   ("P" "؛")
-  ("{" "<")
-  ("}" ">")
+  ("{" ">")
+  ("}" "<")
 
   ("A" "ِ")
   ("S" "ٍ")
@@ -115,6 +115,17 @@
   ("<" ",")
   (">" ".")
   ("?" "؟")
+
+  ((C-,) ">")
+  ((C-.) "<")
+  ((C-[) "]")
+  ((C-]) "[")
+  ((C-J) "‍")                                ; zero width joiner
+  ((C-L) "‎")                                ; left to right mark
+  ((C-N) "‌")                                ; zero width non joiner
+  ((C-R) "‏")                                ; right to left mark
+  ((C-{) "}")
+  ((C-}) "{")
   ))
 
 (state