From: tomo <tomo>
Date: Thu, 27 Jan 2000 04:45:26 +0000 (+0000)
Subject: (charset_code_point): Moved to char-ucs.h.
X-Git-Tag: r21-2-27-utf-2000-0_14-0~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=38992c68207d89c6160511c7a89a8f8bc904330b;p=chise%2Fxemacs-chise.git-

(charset_code_point): Moved to char-ucs.h.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 0991fe1..886006e 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -1623,21 +1623,6 @@ encode_builtin_char_1 (Emchar c, Lisp_Object* charset)
     }
 }
 
-int
-charset_code_point (Lisp_Object charset, Emchar ch)
-{
-  Lisp_Object cdef = get_char_code_table (ch, Vcharacter_attribute_table);
-
-  if (!NILP (cdef))
-    {
-      Lisp_Object field = Fassq (charset, cdef);
-
-      if (!NILP (field))
-	return XINT (Fcdr (field));
-    }
-  return range_charset_code_point (charset, ch);
-}
-
 Lisp_Object Vdefault_coded_charset_priority_list;
 #endif