(Fdefine_charset_alias): Update Vcharset_list.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9b3a49d914e5533d828db8b231e315d4a1542096..934aaabf612f46c529e2c97558938eb49db8c3a5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2002-05-25  Dave Love  <fx@gnu.org>
 
+       * charset.c (Fdefine_charset_alias): Update Vcharset_list.
+
        * fontset.c (Ffontset_info): Doc fix.  Return charset names, not
        ids.
        (font-encoding-alist): Doc fix.

diff --git a/src/charset.c b/src/charset.c
index ea4b08fc953e7fac12c271b5431c3004d262f24b..428723bdc78f5e46e2442cbd9babf6ce755ff80e 100644 (file)
--- a/src/charset.c
+++ b/src/charset.c
@@ -940,7 +940,7 @@ usage: (define-charset-internal ...)  */)
   return Qnil;
 }
 
-
+/* Fixme: Should this record the alias relationships for diagnostics?  */
 DEFUN ("define-charset-alias", Fdefine_charset_alias,
        Sdefine_charset_alias, 2, 2, 0,
        doc: /* Define ALIAS as an alias for charset CHARSET.  */)
@@ -951,6 +951,8 @@ DEFUN ("define-charset-alias", Fdefine_charset_alias,
 
   CHECK_CHARSET_GET_ATTR (charset, attr);
   Fputhash (alias, attr, Vcharset_hash_table);
+  /* Fixme: should the ordered list be updated too?  */
+  Vcharset_list = Fcons (alias, Vcharset_list);
   return Qnil;
 }
 
@@ -1813,7 +1815,7 @@ The default value is sub-directory "charsets" of `data-directory'.  */);
                                              Vdata_directory);
 
   DEFVAR_LISP ("charset-list", &Vcharset_list,
-              doc: /* List of charsets ever defined.  */);
+              doc: /* List of all charsets ever defined.  */);
   Vcharset_list = Qnil;
 
   /* Make the prerequisite charset `ascii' and `unicode'.  */