From: tomo <tomo>
Date: Thu, 7 Oct 1999 10:42:40 +0000 (+0000)
Subject: (Fdefine_charset_alias): New function.
X-Git-Tag: r21-2-19-tomo-6-charset-alias-1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca7837596162128b553e97d8caa650df77ca2c47;p=chise%2Fxemacs-chise.git.1

(Fdefine_charset_alias): New function.
(syms_of_mule_charset): Add new function `define-charset-alias'.
---

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);