Mercurial > emacs
changeset 89375:4b653615bbe4
(Fcharset_id_internal): New function.
(syms_of_charset): Defsubr it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Jan 2003 02:25:12 +0000 |
| parents | dfa404e46975 |
| children | 6ec594d8593d |
| files | src/charset.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.