From 5968a03c7df1a0b9335051a40e0527f43a782440 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 12 Jul 2001 07:59:32 +0000
Subject: [PATCH] (Fdecode_builtin_char): Use `latin-viscii-lower' and
 `latin-viscii-upper' for `latin-viscii'.

---
 src/mule-charset.c |   25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 5b00fec..84a9de9 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -3164,6 +3164,31 @@ Make a builtin character from CHARSET and code-point CODE.
 
   charset = Fget_charset (charset);
   CHECK_INT (code);
+  if (EQ (charset, Vcharset_latin_viscii))
+    {
+      Lisp_Object chr = Fdecode_char (charset, code);
+      Lisp_Object ret;
+
+      if (!NILP (chr))
+	{
+	  if (!NILP
+	      (ret = Fget_char_attribute (chr,
+					  Vcharset_latin_viscii_lower,
+					  Qnil)))
+	    {
+	      charset = Vcharset_latin_viscii_lower;
+	      code = ret;
+	    }
+	  else if (!NILP
+		   (ret = Fget_char_attribute (chr,
+					       Vcharset_latin_viscii_upper,
+					       Qnil)))
+	    {
+	      charset = Vcharset_latin_viscii_upper;
+	      code = ret;
+	    }
+	}
+    }
   c = XINT (code);
 #if 0
   if (XCHARSET_GRAPHIC (charset) == 1)
-- 
1.7.10.4