Merge from emacs--devo--0

[gnu-emacs] / lisp / language / misc-lang.el

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index b4756e8964263d312740e0a0753836743146087c..65af2e4dc35654c9753d9e093853ea98db8e3b1c 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -43,6 +43,16 @@
 IPA is International Phonetic Alphabet for English, French, German
 and Italian.")))
 
+;; This is for Arabic.  But, as we still don't have Arabic language
+;; support, we at least define a coding system here.
+
+(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)
+
 (provide 'misc-lang)
 
 ;;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074