(cond
((null last-repeatable-command)
(error "There is nothing to repeat"))
- ((eq last-repeatable-command 'mode-exit)
- (error "`last-repeatable-command' is `mode-exit' and can't be repeated"))
((memq last-repeatable-command repeat-too-dangerous)
(error "Command %S too dangerous to repeat automatically"
last-repeatable-command)))
;; specially here, since we reread
;; any unrecognized character.
(t
- (setq this-command 'mode-exited)
(setq keep-going nil)
(setq unread-command-events
(append (listify-key-sequence key)
cancel the use of the current buffer (for special-purpose buffers),
or go back to just one window (by deleting all but the selected window)."
(interactive)
- (cond ((eq last-command 'mode-exited) nil)
- ((region-active-p)
+ (cond ((region-active-p)
(deactivate-mark))
((> (minibuffer-depth) 0)
(abort-recursive-edit))
in the keymap, or whatever the variable `this-command' was set to by that
command.
-The value `mode-exit' is special; it means that the previous command
-read an event that told it to exit, and it did so and unread that event.
-In other words, the present command is the event that made the previous
-command exit.
-
The value `kill-region' is special; it means that the previous command
was a kill command.