From 8ade87b130c9c3168021fba1c3fd140035159983 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 9 Mar 2003 16:37:13 +0000 Subject: [PATCH] (Fdefine_char): Refer `=ucs' as same as `ucs'. --- src/chartab.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/chartab.c b/src/chartab.c index 0e33354..340530e 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3648,10 +3648,12 @@ Store character's ATTRIBUTES. (attributes)) { Lisp_Object rest = attributes; - Lisp_Object code = Fcdr (Fassq (Qucs, attributes)); + Lisp_Object code = Fcdr (Fassq (Qmap_ucs, attributes)); Lisp_Object character; if (NILP (code)) + code = Fcdr (Fassq (Qucs, attributes)); + if (NILP (code)) { while (CONSP (rest)) { -- 1.7.10.4