comparison src/keyboard.c @ 46947:775e763fdaf2

(Fclear_this_command_keys): Added optional arg KEEP-RECORD to avoid clearing lossage when we just want to clear the current key sequence (kmacro needs this).

46946:664bdd6d9a58

  before_command_echo_length_1 = before_command_echo_length;
  return Qnil;
}

DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
       Sclear_this_command_keys, 0, 0, 0,
       doc: /* Clear out the vector that `this-command-keys' returns.
Also clear the record of the last 100 events.  */)
     ()
{
  int i;
  
  this_command_key_count = 0;

  for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
    XVECTOR (recent_keys)->contents[i] = Qnil;
  total_keys = 0;
  recent_keys_index = 0;
  return Qnil;
}

DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0,
       doc: /* Return the current depth in recursive edits.  */)

46947:775e763fdaf2

  before_command_echo_length_1 = before_command_echo_length;
  return Qnil;
}

DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
       Sclear_this_command_keys, 0, 1, 0,
       doc: /* Clear out the vector that `this-command-keys' returns.
Also clear the record of the last 100 events, unless optional arg
KEEP-RECORD is non-nil.  */)
     (keep_record)
     Lisp_Object keep_record;
{
  int i;
  
  this_command_key_count = 0;

  if (NILP (keep_record))
    {
      for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
	XVECTOR (recent_keys)->contents[i] = Qnil;
      total_keys = 0;
      recent_keys_index = 0;
    }
  return Qnil;
}

DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0,
       doc: /* Return the current depth in recursive edits.  */)