mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 21:20:45 -08:00
Code Issues Projects Releases Wiki Activity

(shadow_lookup): If Flookup_key returns a number,

Browse source 
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:
Juri Linkov 2005-11-09 07:48:38 +00:00
parent 8b363e6f08
commit d35f78c989
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/keymap.c
View file

@ -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;