From ef7f257b2a66501026d67435b1ce9d142713c829 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 12 Nov 2003 14:38:38 +0000 Subject: [PATCH] (ids_format_unit): Modify for `Fdecode_char'. (simplify_char_spec): Likewise. --- src/fns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fns.c b/src/fns.c index 03677ed..b513f4c 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1,7 +1,7 @@ /* Random utility Lisp functions. Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc. Copyright (C) 1995, 1996 Ben Wing. - Copyright (C) 2002 MORIOKA Tomohiko + Copyright (C) 2002, 2003 MORIOKA Tomohiko This file is part of XEmacs. @@ -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 (Qmap_ucs, ids_char, Qnil)); + return Fchar_to_string (Fdecode_char (Qmap_ucs, ids_char, Qnil, 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 (Qmap_ucs, char_spec, Qnil); + return Fdecode_char (Qmap_ucs, char_spec, Qnil, Qnil); else { Lisp_Object ret = Ffind_char (char_spec); -- 1.7.10.4