# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022331420 0
# Node ID ad7c09ee6cf944c655c34dbea0b2167c1df562d4
# Parent  516c4d2b2516df0c51c6a73c71bdecd0fa2258f5
(Fdefine_charset_alias): Update Vcharset_list.

diff -r 516c4d2b2516 -r ad7c09ee6cf9 src/charset.c
--- a/src/charset.c	Sat May 25 12:43:58 2002 +0000
+++ b/src/charset.c	Sat May 25 12:57:00 2002 +0000
@@ -940,7 +940,7 @@
   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 @@
 
   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 @@
 					      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'.  */