comparison src/keymap.c @ 66757:3f4ee1926eb1

(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.

66756:670149b47c39

  Lisp_Object tail, value;

  for (tail = shadow; CONSP (tail); tail = XCDR (tail))
    {
      value = Flookup_key (XCAR (tail), key, flag);
      if (!NILP (value) && !NATNUMP (value))
	return value;
    }
  return Qnil;
}

66757:3f4ee1926eb1

  Lisp_Object tail, value;

  for (tail = shadow; CONSP (tail); tail = XCDR (tail))
    {
      value = Flookup_key (XCAR (tail), key, flag);
      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;
}