comparison src/keymap.c @ 1441:929409595312

* keymap.c (store_in_keymap): Don't forget to QUIT in the keymap-scanning loop. Don't treat vectors as binding tables if they're the wrong length. * keymap.c (store_in_keymap): Don't forget to QUIT in the keymap-scanning loop. Don't treat vectors as binding tables if they're the wrong length.

1440:8c27b145955a

	Lisp_Object elt = XCONS (tail)->car;

	switch (XTYPE (elt))
	  {
	  case Lisp_Vector:
	    if (XTYPE (idx) == Lisp_Int)
	      {
		XVECTOR (elt)->contents[XFASTINT (idx)] = def;
		return def;
	      }

               should be inserted before it.  */
	    if (EQ (elt, Qkeymap))
	      goto keymap_end;
	    break;
	  }
      }

  keymap_end:
    /* We have scanned the entire keymap, and not found a binding for
       IDX.  Let's add one.  */

1441:929409595312

	Lisp_Object elt = XCONS (tail)->car;

	switch (XTYPE (elt))
	  {
	  case Lisp_Vector:
	    if (XVECTOR (elt)->size != DENSE_TABLE_SIZE)
	      break;
	    if (XTYPE (idx) == Lisp_Int)
	      {
		XVECTOR (elt)->contents[XFASTINT (idx)] = def;
		return def;
	      }

               should be inserted before it.  */
	    if (EQ (elt, Qkeymap))
	      goto keymap_end;
	    break;
	  }

	QUIT;
      }

  keymap_end:
    /* We have scanned the entire keymap, and not found a binding for
       IDX.  Let's add one.  */