Add coding system windows-1256 (alias cp1256).

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b0dcb1c80e..a433e2ebd7c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-08  Kenichi Handa  <handa@m17n.org>
+
+        * language/misc-lang.el (windows-1256): New coding system.
+        (cp1256): New alias of windows-1256.
+
 2010-03-03  Štěpán Němec  <stepnem@gmail.com>  (tiny change)
 
         * subr.el (momentary-string-display): Don't overwrite the MESSAGE
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index ac69cf5c7fa..2431c9d9e99 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -50,6 +50,14 @@ and Italian.")))
   :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)
+
 (provide 'misc-lang)
 
 ;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074