From 528623a02588d947586d56457f45bcb743240be5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 25 May 2002 12:57:30 +0000 Subject: [PATCH] (Fdefine_charset_alias): Update Vcharset_list. --- src/ChangeLog | 2 ++ src/charset.c | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9b3a49d914e..934aaabf612 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2002-05-25 Dave Love + * 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 ea4b08fc953..428723bdc78 100644 --- 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'. */ -- 2.39.5