From: Kenichi Handa <handa@m17n.org>
Date: Thu, 20 Sep 2007 07:49:52 +0000 (+0000)
Subject: (map_sub_char_table): If the range contains just one
X-Git-Tag: emacs-pretest-23.0.90~8295^2~324
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a4bacdc2b320e9181e5f8a56b1e05dc78d3564a;p=emacs.git

(map_sub_char_table): If the range contains just one
character, call the function with that character even if the depth
is not 3.
(map_char_table): Likewise.
---

diff --git a/src/chartab.c b/src/chartab.c
index bc97103c1e3..021b163618d 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -805,8 +805,7 @@ map_sub_char_table (c_function, function, table, arg, val, range,
 	      if (! NILP (val) && different_value)
 		{
 		  XSETCDR (range, make_number (c - 1));
-		  if (depth == 3
-		      && EQ (XCAR (range), XCDR (range)))
+		  if (EQ (XCAR (range), XCDR (range)))
 		    {
 		      if (c_function)
 			(*c_function) (arg, XCAR (range), val);
@@ -875,10 +874,20 @@ map_char_table (c_function, function, table, arg)
 
   if (! NILP (val))
     {
-      if (c_function)
-	(*c_function) (arg, range, val);
+      if (EQ (XCAR (range), XCDR (range)))
+	{
+	  if (c_function)
+	    (*c_function) (arg, XCAR (range), val);
+	  else
+	    call2 (function, XCAR (range), val);
+	}
       else
-	call2 (function, range, val);
+	{
+	  if (c_function)
+	    (*c_function) (arg, range, val);
+	  else
+	    call2 (function, range, val);
+	}
     }
 
   UNGCPRO;