Mercurial > emacs
diff src/charset.c @ 88634:ad7c09ee6cf9
(Fdefine_charset_alias): Update Vcharset_list.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sat, 25 May 2002 12:57:00 +0000 |
parents | decf968c7435 |
children | 203bb5221b98 |
line wrap: on
line diff
--- 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'. */