diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1a4bcf124db..00c25db07d7 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -693,7 +693,8 @@ any other non-digit terminates the character code and is then used as input.")) (cond ((null translated)) ((not (integerp translated)) (setq unread-command-events - (listify-key-sequence (this-single-command-raw-keys)) + (nconc (listify-key-sequence (this-single-command-raw-keys)) + unread-command-events) done t)) ((/= (logand translated ?\M-\^@) 0) ;; Turn a meta-character into a character with the 0200 bit set. @@ -713,7 +714,8 @@ any other non-digit terminates the character code and is then used as input.")) (setq done t)) ((not first) (setq unread-command-events - (listify-key-sequence (this-single-command-raw-keys)) + (nconc (listify-key-sequence (this-single-command-raw-keys)) + unread-command-events) done t)) (t (setq code translated done t))) |