# HG changeset patch # User Kenichi Handa # Date 1043893512 0 # Node ID 4b653615bbe4fd382fd5f014da5c9ada88132903 # Parent dfa404e46975480833f52fc61e4b2ae88f8dd5bb (Fcharset_id_internal): New function. (syms_of_charset): Defsubr it. diff -r dfa404e46975 -r 4b653615bbe4 src/charset.c --- a/src/charset.c Thu Jan 30 02:23:40 2003 +0000 +++ b/src/charset.c Thu Jan 30 02:25:12 2003 +0000 @@ -2019,6 +2019,20 @@ 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 @@ 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.