X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Ffns.c;h=9de6fea678db62550b2a888be5951b5646448157;hb=7818666fba8a8019ab7ffbc5db91a46eb909a74e;hp=9b38b1b5752f491f87b87b35c0746913e7b3ba58;hpb=8cb6271e99e31df282456512ac223377e9a08527;p=chise%2Fxemacs-chise.git.1

diff --git a/src/fns.c b/src/fns.c
index 9b38b1b..9de6fea 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, 2003, 2004 MORIOKA Tomohiko
+   Copyright (C) 2002, 2003, 2004, 2008 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -3810,7 +3810,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, Qnil));
+    return Fchar_to_string (Fdecode_char (Qrep_ucs, ids_char, Qnil, Qnil));
   else
     {
       Lisp_Object ret = Ffind_char (ids_char);
@@ -3867,7 +3867,7 @@ simplify_char_spec (Lisp_Object char_spec)
       return char_spec;
     }
   else if (INTP (char_spec))
-    return Fdecode_char (Qmap_ucs, char_spec, Qnil, Qnil);
+    return Fdecode_char (Qrep_ucs, char_spec, Qnil, Qnil);
   else
     {
 #if 0