Add coding system windows-1256 (alias cp1256).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b0dcb1c80e7890989627ff07a474dd98c3f3f3b..a433e2ebd7c36eb3d1699e5891fba20863da0640 100644 (file)
--- 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 ac69cf5c7fab6e89fdd36da2f4e7497dc54e210f..2431c9d9e99183de02847653ccfaa997379ba810 100644 (file)
--- 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