From ca7837596162128b553e97d8caa650df77ca2c47 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 7 Oct 1999 10:42:40 +0000 Subject: [PATCH] (Fdefine_charset_alias): New function. (syms_of_mule_charset): Add new function `define-charset-alias'. --- src/mule-charset.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/mule-charset.c b/src/mule-charset.c index 6dcbe1a..aae29a5 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -859,6 +859,16 @@ NEW-NAME is the name of the new charset. Return the new charset. return new_charset; } +DEFUN ("define-charset-alias", Fdefine_charset_alias, 2, 2, 0, /* +Define symbol ALIAS as an alias for CHARSET. +*/ + (alias, charset)) +{ + CHECK_SYMBOL (alias); + charset = Fget_charset (charset); + return Fputhash (alias, charset, Vcharset_hash_table); +} + /* #### Reverse direction charsets not yet implemented. */ #if 0 DEFUN ("charset-reverse-direction-charset", Fcharset_reverse_direction_charset, @@ -1231,6 +1241,7 @@ syms_of_mule_charset (void) DEFSUBR (Fmake_charset); DEFSUBR (Fmake_reverse_direction_charset); /* DEFSUBR (Freverse_direction_charset); */ + DEFSUBR (Fdefine_charset_alias); DEFSUBR (Fcharset_from_attributes); DEFSUBR (Fcharset_short_name); DEFSUBR (Fcharset_long_name); -- 1.7.10.4