; Do not overwrite preexisting contents of unread-command-events

[gnu-emacs] / lisp / obsolete / terminal.el

diff --git a/lisp/obsolete/terminal.el b/lisp/obsolete/terminal.el
index 6bab61b0f467b6643264c387d5b32e8dc6241671..f1a38d20f39ee176242e0182e0c0b0d52a4d27df 100644 (file)
--- a/lisp/obsolete/terminal.el
+++ b/lisp/obsolete/terminal.el
@@ -291,7 +291,9 @@ Other chars following \"%s\" are interpreted as follows:\n"
 ;; not used.
 (defun te-escape-extended-command-unread ()
   (interactive)
-  (setq unread-command-events (listify-key-sequence (this-command-keys)))
+  (setq unread-command-events
+        (nconc (listify-key-sequence (this-command-keys))
+               unread-command-events))
   (te-escape-extended-command))
 
 (defun te-set-escape-char (c)