From: Mohsen BANAN <libre@mohsen.1.banan.byname.net>
Date: Mon, 6 Aug 2012 07:31:31 +0000 (-0700)
Subject: * lisp/language/persian.el: New file.
X-Git-Tag: emacs-24.2.90~830
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5be7bd03b5d4efbe49a42358c67f712115dfb68;p=emacs.git

* lisp/language/persian.el: New file.
* lisp/loadup.el: Add language/persian.el.

Fixes: debbugs:11812
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8088a51f591..72b6db71cfa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-06  Mohsen BANAN  <libre@mohsen.1.banan.byname.net>
+
+	* language/persian.el: New file.  (Bug#11812)
+	* loadup.el: Add language/persian.el.
+
 2012-08-06  Chong Yidong  <cyd@gnu.org>
 
 	* window.el (window--maybe-raise-frame): New function.
diff --git a/lisp/language/persian.el b/lisp/language/persian.el
new file mode 100644
index 00000000000..8860acd1ca4
--- /dev/null
+++ b/lisp/language/persian.el
@@ -0,0 +1,62 @@
+;;; persian.el  --- support for Persian	-*- coding: utf-8;-*-
+
+;; Copyright (C) 2012 Free Software Foundation, Inc.
+
+;; Author: Mohsen BANAN <libre@mohsen.1.banan.byname.net>
+;; X-URL: http://mohsen.1.banan.byname.net/contact
+
+;; Keywords: multilingual, Farsi, Persian
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; For Persian, the character set ISO8859-6 is supported.  (Same as Arabic)
+
+;;; Code:
+
+(define-coding-system 'iso-8859-6
+  "ISO-8859-6 based encoding (MIME:ISO-8859-6)."
+  :coding-type 'charset
+  :mnemonic ?6
+  :charset-list '(iso-8859-6)
+  :mime-charset 'iso-8859-6)
+
+(define-coding-system 'windows-1256
+  "windows-1256 (Arabic) encoding (MIME: WINDOWS-1256)"
+  :coding-type 'charset
+  :mnemonic ?A
+  :charset-list '(windows-1256)
+  :mime-charset 'windows-1256)
+
+(define-coding-system-alias 'cp1256 'windows-1256)
+
+(set-language-info-alist
+ "Persian" '((charset unicode)
+	    (coding-system utf-8 iso-8859-6 windows-1256)
+	    (coding-priority utf-8 iso-8859-6 windows-1256)
+	    (input-method . "farsi-transliterate-banan")
+	    (sample-text . "Persian	فارسی")
+	    (documentation . "Bidirectional editing is supported.")))
+
+(set-char-table-range
+ composition-function-table
+ '(#x600 . #x6FF)
+ (list ["[\u0600-\u06FF]+" 0 font-shape-gstring]))
+
+(provide 'persian)
+
+;;; persian.el ends here
diff --git a/lisp/loadup.el b/lisp/loadup.el
index a460fcab339..d316f28a374 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -159,6 +159,7 @@
 (load "language/japanese")
 (load "language/korean")
 (load "language/lao")
+(load "language/persian")
 (load "language/tai-viet")
 (load "language/thai")
 (load "language/tibetan")