- ((memq cmd kmacro-step-edit-prefix-commands)
- (setq universal-argument-num-events 0)
- (reset-this-command-lengths)
- nil)
- ((eq cmd 'universal-argument-other-key)
- (setq kmacro-step-edit-action t)
- (setq universal-argument-num-events 0)
- (reset-this-command-lengths)
- (if (numberp kmacro-step-edit-inserting)
- (setq kmacro-step-edit-inserting nil))
- nil)