# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1132615932 0
# Node ID c83903b9e676860d1aa2df9acdb5eaafbc772d86
# Parent  962ab95567f05f174bf25edc7d5df3a94bf55a00
(shadow_lookup): Use make_number to pass a number to Fsubstring.

diff -r 962ab95567f0 -r c83903b9e676 src/keymap.c
--- a/src/keymap.c	Mon Nov 21 22:24:13 2005 +0000
+++ b/src/keymap.c	Mon Nov 21 23:32:12 2005 +0000
@@ -2379,7 +2379,8 @@
       value = Flookup_key (XCAR (tail), key, flag);
       if (NATNUMP (value))
 	{
-	  value = Flookup_key (XCAR (tail), Fsubstring (key, 0, value), flag);
+	  value = Flookup_key (XCAR (tail),
+			       Fsubstring (key, make_number (0), value), flag);
 	  if (!NILP (value))
 	    return Qnil;
 	}