From 72321376c53ccddd182d9e94fafd1ae1e6f98921 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Nov 1999 17:13:24 +0000 Subject: [PATCH] (Fchar_attribute_alist): Check the argument is a character; copy the return value. --- src/mule-charset.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/mule-charset.c b/src/mule-charset.c index 3c4a223..d3c9fd4 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -383,7 +383,9 @@ Return the alist of attributes of CHARACTER. */ (character)) { - return get_char_code_table (XCHAR (character), Vcharacter_attribute_table); + CHECK_CHAR (character); + return Fcopy_alist (get_char_code_table (XCHAR (character), + Vcharacter_attribute_table)); } DEFUN ("get-char-attribute", Fget_char_attribute, 2, 2, 0, /* -- 1.7.10.4