/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.704 by kfstorm, Wed Aug 14 10:34:41 2002 UTC revision 1.705 by kfstorm, Mon Aug 19 14:58:29 2002 UTC
# Line 9732  appears in the echo area and in the valu Line 9732  appears in the echo area and in the valu
9732  }  }
9733    
9734  DEFUN ("clear-this-command-keys", Fclear_this_command_keys,  DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
9735         Sclear_this_command_keys, 0, 0, 0,         Sclear_this_command_keys, 0, 1, 0,
9736         doc: /* Clear out the vector that `this-command-keys' returns.         doc: /* Clear out the vector that `this-command-keys' returns.
9737  Also clear the record of the last 100 events.  */)  Also clear the record of the last 100 events, unless optional arg
9738       ()  KEEP-RECORD is non-nil.  */)
9739         (keep_record)
9740         Lisp_Object keep_record;
9741  {  {
9742    int i;    int i;
9743        
9744    this_command_key_count = 0;    this_command_key_count = 0;
9745    
9746    for (i = 0; i < XVECTOR (recent_keys)->size; ++i)    if (NILP (keep_record))
9747      XVECTOR (recent_keys)->contents[i] = Qnil;      {
9748    total_keys = 0;        for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
9749    recent_keys_index = 0;          XVECTOR (recent_keys)->contents[i] = Qnil;
9750          total_keys = 0;
9751          recent_keys_index = 0;
9752        }
9753    return Qnil;    return Qnil;
9754  }  }
9755    

Legend:
Removed from v.1.704  
changed lines
  Added in v.1.705

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26