From aec663190b6d19e4fcc5924d0cfedfe6eef8e405 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Mon, 8 Mar 2010 10:50:35 +0900
Subject: [PATCH] Add coding system windows-1256 (alias cp1256).

---
 lisp/ChangeLog             | 5 +++++
 lisp/language/misc-lang.el | 8 ++++++++
 2 files changed, 13 insertions(+)

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
-- 
2.39.5