diff options
author | Glenn Morris <rgm@gnu.org> | 2012-08-08 00:19:58 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-08-08 00:19:58 -0700 |
commit | 32ac3a6ba32f947a8d6b81ef7609dc69fd6a5d48 (patch) | |
tree | 2f32b62631df39fe1aa672889881865c436e9701 /lisp/language | |
parent | 77c7bcb1157b405bde1227b20ef5f7ce9a90e689 (diff) |
Merge language/persian.el into language/misc-lang.el
* lisp/language/persian.el: Remove file.
* lisp/language/misc-lang.el: Move non-unique part of persian.el here.
* lisp/loadup.el: Remove language/persian.
* src/lisp.mk (lisp): Remove language/persian.elc.
* etc/NEWS: Improve entry.
Diffstat (limited to 'lisp/language')
-rw-r--r-- | lisp/language/misc-lang.el | 8 | ||||
-rw-r--r-- | lisp/language/persian.el | 62 |
2 files changed, 8 insertions, 62 deletions
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index 1286b361892..ee06e34eef4 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -67,6 +67,14 @@ and Italian."))) (sample-text . "Arabic السّلام عليكم") (documentation . "Bidirectional editing is supported."))) +(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) diff --git a/lisp/language/persian.el b/lisp/language/persian.el deleted file mode 100644 index 8860acd1ca4..00000000000 --- a/lisp/language/persian.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; 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 |