From 196bfaecb0caffcdbb699694139a97148e90e227 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Sun, 27 Apr 2014 16:26:42 -0700 Subject: [PATCH] Avoid adding bracketed paste keys to command keys * lisp/term/xterm.el (xterm-paste): Use large finite timeout when reading event to avoid putting keys in this-command-keys. --- lisp/ChangeLog | 5 +++++ lisp/term/xterm.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da8314cf617..3bbd2a8dc66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-04-27 Daniel Colascione + + * term/xterm.el (xterm-paste): Use large finite timeout when + reading event to avoid putting keys in this-command-keys. + 2014-04-25 Stefan Monnier * progmodes/perl-mode.el (perl--syntax-exp-intro-regexp): New var. diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index f8ff0cc91dc..ed975c580c9 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -59,7 +59,12 @@ The relevant features are: (while (not (search-backward xterm-paste-ending-sequence (- (point) end-marker-length) t)) - (let ((event (read-event))) + (let ((event (read-event + nil nil + ;; Use finite timeout to avoid + ;; glomming the event onto + ;; this-command-keys. + most-positive-fixnum))) (when (eql event ?\r) (setf event ?\n)) (insert event))) -- 2.11.4.GIT