From d40092ae96d07b74432d4cb946ad6294fab2e64e Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 9 Mar 2003 16:38:59 +0000 Subject: [PATCH] (ids_format_unit): Refer `=ucs' instead of `ucs'. (simplify_char_spec): Likewise. --- src/fns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index 8c02746..03677ed 100644 --- a/src/fns.c +++ b/src/fns.c @@ -3774,7 +3774,7 @@ ids_format_unit (Lisp_Object ids_char) if (CHARP (ids_char)) return Fchar_to_string (ids_char); else if (INTP (ids_char)) - return Fchar_to_string (Fdecode_char (Qucs, ids_char, Qnil)); + return Fchar_to_string (Fdecode_char (Qmap_ucs, ids_char, Qnil)); else { Lisp_Object ret = Ffind_char (ids_char); @@ -3819,7 +3819,7 @@ simplify_char_spec (Lisp_Object char_spec) if (CHARP (char_spec)) return char_spec; else if (INTP (char_spec)) - return Fdecode_char (Qucs, char_spec, Qnil); + return Fdecode_char (Qmap_ucs, char_spec, Qnil); else { Lisp_Object ret = Ffind_char (char_spec); -- 1.7.10.4