From d5b3330910194773ce8f44800ddb11ca932ef901 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Thu, 30 Jan 2003 02:25:12 +0000
Subject: [PATCH] (Fcharset_id_internal): New function. (syms_of_charset):
 Defsubr it.

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

diff --git a/src/charset.c b/src/charset.c
index a1dc689430..431e06a0c0 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -2019,6 +2019,20 @@ usage: (set-charset-priority &rest charsets)  */)
 
   return Qnil;
 }
+
+DEFUN ("charset-id-internal", Fcharset_id_internal, Scharset_id_internal,
+       0, 1, 0,
+       doc: /* Internal use only.
+Return charset identification number of CHARSET.  */)
+     (charset)
+     Lisp_Object charset;
+{
+  int id;
+
+  CHECK_CHARSET_GET_ID (charset, id);
+  return make_number (id);
+}
+
 
 void
 init_charset ()
@@ -2110,6 +2124,7 @@ syms_of_charset ()
   defsubr (&Sclear_charset_maps);
   defsubr (&Scharset_priority_list);
   defsubr (&Sset_charset_priority);
+  defsubr (&Scharset_id_internal);
 
   DEFVAR_LISP ("charset-map-directory", &Vcharset_map_directory,
 	       doc: /* Directory of charset map files that come with GNU Emacs.
-- 
2.20.1