mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Avoid adding bracketed paste keys to command keys

Browse source 
* lisp/term/xterm.el (xterm-paste): Use large finite timeout when
reading event to avoid putting keys in this-command-keys.
This commit is contained in:
Daniel Colascione 2014-04-27 16:26:42 -07:00
parent 8f25c2bc56
commit 196bfaecb0
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-04-27 Daniel Colascione <dancol@dancol.org>
* 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 <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl--syntax-exp-intro-regexp): New var.

7
lisp/term/xterm.el
View file

@ -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)))