[Emacs-diffs] Changes to emacs/src/keymap.c

[Juri Linkov]

Index: emacs/src/keymap.c
diff -c emacs/src/keymap.c:1.307 emacs/src/keymap.c:1.308
*** emacs/src/keymap.c:1.307    Mon Sep 12 10:26:35 2005
--- emacs/src/keymap.c  Wed Nov  9 07:48:38 2005
***************
*** 2377,2383 ****
    for (tail = shadow; CONSP (tail); tail = XCDR (tail))
      {
        value = Flookup_key (XCAR (tail), key, flag);
!       if (!NILP (value) && !NATNUMP (value))
        return value;
      }
    return Qnil;
--- 2377,2389 ----
    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;