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

[Kenichi Handa]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.704 emacs/src/keyboard.c:1.705
*** emacs/src/keyboard.c:1.704  Wed Aug 14 06:34:41 2002
--- emacs/src/keyboard.c        Mon Aug 19 10:58:29 2002
***************
*** 9732,9750 ****
  }
  
  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;
  }
  
--- 9732,9755 ----
  }
  
  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;
  }