Call aclocal with "-I m4". Produce

[m17n/m17n-db.git] / fa-isiri.mim

diff --git a/fa-isiri.mim b/fa-isiri.mim
index be56cc8..cf96832 100644 (file)
--- a/fa-isiri.mim
+++ b/fa-isiri.mim
@@ -1,5 +1,5 @@
 ;; fa-isiri.mim -- Input method for Farsi with ISIRI 2901-1994 keyboad layout
-;; Copyright (C) 2003, 2004
+;; Copyright (C) 2003, 2004, 2005
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H15PRO112
 
@@ -21,10 +21,11 @@
 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; <li> fa-isiri.mim
-;;;
-;;; Input method for Farsi (Arabic characters) with ISIRI 2901-1994
-;;; keyboard layout.
+(input-method fa isiri)
+
+(description "Farsi input method simulating ISIRI 2901-1994 keyboard layout.
+This is for typing Farsi by Arabic characters.
+")
 
 (title "ف")
 
@@ -89,8 +90,8 @@
   ("^" "×")
   ("&" "،")
   ;;   ("*" "*")
-  ;;   ("\(" "\(")
-  ;;   ("\)" "\)")
+  ("\(" "\)")
+  ("\)" "\(")
   ;;   ("_" "_")
   ;;   ("+" "+")
   ;;   ("|" "|")
@@ -104,10 +105,10 @@
   ("Y" "ِ")
   ("U" "َ")
   ("I" "ّ")
-  ("O" "[")
-  ("P" "]")
-  ("[" "{")
-  ("]" "}")
+  ("O" "]")
+  ("P" "[")
+  ("{" "}")
+  ("}" "{")
 
   ("A" "ؤ")
   ("S" "ئ")
@@ -116,8 +117,8 @@
   ("G" "أ")
   ("H" "آ")
   ("J" "ة")
-  ("K" "«")
-  ("L" "»")
+  ("K" "»")
+  ("L" "«")
   ;;   (":" ":")
   ("\"" "؛")
 
@@ -128,9 +129,14 @@
   ("B" "‌")                          ; zero width non joiner
   ("N" "")
   ("M" "ء")
-  ;;   ("<" "<")
-  ;;   (">" ">")
+  ("<" ">")
+  (">" "<")
   ("?" "؟")
+  ((S-\ ) "‌")                               ; zero width non joiner
+  ((C-J) "‍")                                ; zero width joiner
+  ((C-L) "‎")                                ; left to right mark
+  ((C-N) "‌")                                ; zero width non joiner
+  ((C-R) "‏")                                ; right to left mark
   ))
 
 (state