# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1027340894 0
# Node ID 7702a9d9edff8530e23d58076f4c430163292af9
# Parent  46d14196d8915cbf9dfb0c4e7cc31cb660cd92ff
(Fmap_charset_chars): Fix handling of default value for FROM_CODE
and TO_CODE.

diff -r 46d14196d891 -r 7702a9d9edff src/charset.c
--- a/src/charset.c	Mon Jul 22 12:27:56 2002 +0000
+++ b/src/charset.c	Mon Jul 22 12:28:14 2002 +0000
@@ -670,18 +670,23 @@
 
   CHECK_CHARSET_GET_CHARSET (charset, cs);
   if (NILP (from_code))
-    from_code = make_number (0);
-  CHECK_NATNUM (from_code);
-  from = XINT (from_code);
-  if (from < CHARSET_MIN_CODE (cs))
     from = CHARSET_MIN_CODE (cs);
+  else
+    {
+      CHECK_NATNUM (from_code);
+      from = XINT (from_code);
+      if (from < CHARSET_MIN_CODE (cs))
+	from = CHARSET_MIN_CODE (cs);
+    }
   if (NILP (to_code))
-    to_code = make_number (0xFFFFFFFF);
-  CHECK_NATNUM (from_code);
-  to = XINT (to_code);
-  if (to > CHARSET_MAX_CODE (cs))
-    to_code = make_number (CHARSET_MAX_CODE (cs));
-
+    to = CHARSET_MAX_CODE (cs);
+  else
+    {
+      CHECK_NATNUM (to_code);
+      to = XINT (to_code);
+      if (to > CHARSET_MAX_CODE (cs))
+	to = CHARSET_MAX_CODE (cs);
+    }
   map_charset_chars (NULL, function, arg, cs, from, to);
   return Qnil;
 }