From: tomo <tomo>
Date: Fri, 12 Nov 1999 17:13:24 +0000 (+0000)
Subject: (Fchar_attribute_alist): Check the argument is a character; copy the
X-Git-Tag: r21-2-19-utf-2000-0_12-0~104
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72321376c53ccddd182d9e94fafd1ae1e6f98921;p=chise%2Fxemacs-chise.git

(Fchar_attribute_alist): Check the argument is a character; copy the
return value.
---

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, /*