|
@@ -70,7 +70,7 @@ end of input."
|
|
(unread-command-events
|
|
(unread-command-events
|
|
(append key-sequence C-g-key-sequence)))
|
|
(append key-sequence C-g-key-sequence)))
|
|
(when (member (car C-g-key-sequence) key-sequence)
|
|
(when (member (car C-g-key-sequence) key-sequence)
|
|
- (error "KEYS must include C-g"))
|
|
|
|
|
|
+ (error "KEYS must not include C-g"))
|
|
(condition-case nil
|
|
(condition-case nil
|
|
(progn ,@body)
|
|
(progn ,@body)
|
|
(quit
|
|
(quit
|