From 76580a68c22e5649239d4472ea16ca18f6df42c5 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 21 Aug 2009 14:55:56 +0000
Subject: [PATCH] Add missing keys that exist on the Arabic X keyboard.  Don't
 insert Lam-alef ligatures from the Arabic Presentation Forms ranges; instead,
 separate Lam-Alef ligatures into a list of two letters (Lam and a suitable
 Alef).

---
 leim/ChangeLog       |  7 +++++++
 leim/quail/arabic.el | 21 +++++++++++----------
 2 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/leim/ChangeLog b/leim/ChangeLog
index aec6c247d67..59da6bac54a 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,10 @@
+2009-08-21  Thamer Mahmoud  <thamer.mahmoud@gmail.com>  (tiny change)
+
+	* quail/arabic.el: Add missing keys that exist on the Arabic X
+	keyboard.  Don't insert Lam-alef ligatures from the Arabic
+	Presentation Forms ranges; instead, separate Lam-Alef ligatures
+	into a list of two letters (Lam and a suitable Alef).
+
 2009-06-23  Kenichi Handa  <handa@m17n.org>
 
 	* quail/hangul.el (hangul-to-hanja-conversion): When it is called
diff --git a/leim/quail/arabic.el b/leim/quail/arabic.el
index 0e28b569153..26d66ae4261 100644
--- a/leim/quail/arabic.el
+++ b/leim/quail/arabic.el
@@ -40,42 +40,42 @@ Based on Arabic table in X Keyboard Configuration DB.
 
 (quail-define-rules
  ("`" ?Ø°)
+ ("~" ?ّ)
 
  ("Q" ?َ)
  ("W" ?ً)
  ("E" ?ُ)
  ("R" ?ٌ)
- ("T" ?ﻹ)
+ ("T" ["لإ"])
  ("Y" ?Ø¥)
  ("U" ?`)
  ("I" ?÷)
  ("O" ?×)
  ("P" ?؛)
+ ("{" ?<)
+ ("}" ?>)
 
  ("A" ?ِ)
  ("S" ?ٍ)
  ("D" ?])
  ("F" ?[)
- ("G" ?ï»·)
+ ("G" ["لأ"])
  ("H" ?Ø£)
  ("J" ?ـ)
  ("K" ?،)
  ("L" ?/)
- (";" ?:)
 
  ("Z" ?~)
  ("X" ?ْ)
  ("C" ?})
  ("V" ?{)
- ("B" ?ﻵ)
+ ("B" ["لآ"])
  ("N" ?Ø¢)
  ("M" ?')
  ("<" ?,)
  (">" ?.)
  ("?" ?؟)
 
- ("`" ?Ø°)
-
  ("q" ?ض)
  ("w" ?ص)
  ("e" ?Ø«)
@@ -86,6 +86,8 @@ Based on Arabic table in X Keyboard Configuration DB.
  ("i" ?ه)
  ("o" ?Ø®)
  ("p" ?Ø­)
+ ("[" ?ج)
+ ("]" ?د)
 
  ("a" ?Ø´)
  ("s" ?س)
@@ -97,19 +99,18 @@ Based on Arabic table in X Keyboard Configuration DB.
  ("k" ?ن)
  ("l" ?م)
  (";" ?ك)
+ ("'" ?Ø·)
 
  ("z" ?ئ)
  ("x" ?Ø¡)
  ("c" ?ؤ)
  ("v" ?ر)
- ("b" ?ï»»)
+ ("b" ["لا"])
  ("n" ?ى)
  ("m" ?Ø©)
  ("," ?و)
  ("." ?ز)
- ("/" ?ظ)
-
- ("'" ?Ø·))
+ ("/" ?ظ))
 
 ;; arch-tag: 7e81e2af-5ea5-417f-bfe7-dfa6fd955cb5
 ;;; arabic.el ends here
-- 
2.39.2