comparison src/keymap.c @ 90573:858cb33ae39d

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 357-381) - Merge from gnus--rel--5.10 - Update from CVS - Merge from erc--emacs--21 * gnus--rel--5.10 (patch 116-122) - Update from CVS - Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-98

90572:ab9b8d043c39

  if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt))
    Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands);

  meta_bit = VECTORP (key) ? meta_modifier : 0x80;

  idx = 0;
  while (1)
    {
      c = Faref (key, make_number (idx));

90573:858cb33ae39d

  if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt))
    Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands);

  meta_bit = VECTORP (key) ? meta_modifier : 0x80;

  if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, make_number (0))))
    { /* DEF is apparently an XEmacs-style keyboard macro.  */
      Lisp_Object tmp = Fmake_vector (make_number (ASIZE (def)), Qnil);
      int i = ASIZE (def);
      while (--i >= 0)
	{
	  Lisp_Object c = AREF (def, i);
	  if (CONSP (c) && lucid_event_type_list_p (c))
	    c = Fevent_convert_list (c);
	  ASET (tmp, i, c);
	}
      def = tmp;
    }

  idx = 0;
  while (1)
    {
      c = Faref (key, make_number (idx));