(shadow_lookup): If Flookup_key returns a number,
call it again with a sub-key-sequence, and if its return value is non-nil (sub-key is bound), return nil.
This commit is contained in:
@@ -2377,7 +2377,13 @@ shadow_lookup (shadow, key, flag)
|
||||
for (tail = shadow; CONSP (tail); tail = XCDR (tail))
|
||||
{
|
||||
value = Flookup_key (XCAR (tail), key, flag);
|
||||
if (!NILP (value) && !NATNUMP (value))
|
||||
if (NATNUMP (value))
|
||||
{
|
||||
value = Flookup_key (XCAR (tail), Fsubstring (key, 0, value), flag);
|
||||
if (!NILP (value))
|
||||
return Qnil;
|
||||
}
|
||||
else if (!NILP (value))
|
||||
return value;
|
||||
}
|
||||
return Qnil;
|
||||
|
||||
Reference in New Issue
Block a user