From: Kenichi Handa <handa@gnu.org>
Date: Sat, 20 Jul 2013 04:15:37 +0000 (+0900)
Subject: * mule.el (coding-system-iso-2022-flags): Add `level-4'.  (Bug#8522)
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eaaa8f3ea145176bd0168e5ed6e19044a1a9e014;p=emacs.git

* mule.el (coding-system-iso-2022-flags): Add `level-4'.  (Bug#8522)
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 28542835a5f..45f74217ad2 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -518,7 +518,8 @@ Return -1 if charset isn't an ISO 2022 one."
     composition
     euc-tw-shift
     use-roman
-    use-oldjis)
+    use-oldjis
+    level-4)
   "List of symbols that control ISO-2022 encoder/decoder.
 
 The value of the `:flags' attribute in the argument of the function
@@ -578,7 +579,13 @@ If `use-roman' is specified, JIS0201-1976-Roman is designated instead
 of ASCII.
 
 If `use-oldjis' is specified, JIS0208-1976 is designated instead of
-JIS0208-1983.")
+JIS0208-1983.
+
+If `level-4' is specified, the decoder assumes the implementation
+lavel \"4\" for 8-bit codes which means that GL is identified as the
+single-shift area.  The default implementation level for 8-bit
+code is \"4A\" which means that GR is identified as the
+single-shift area.")
 
 (defun define-coding-system (name docstring &rest props)
   "Define NAME (a symbol) as a coding system with DOCSTRING and attributes.