[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117026: Avoid adding bracketed paste keys to comman
From: |
Daniel Colascione |
Subject: |
[Emacs-diffs] trunk r117026: Avoid adding bracketed paste keys to command keys |
Date: |
Sun, 27 Apr 2014 23:26:55 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117026
revision-id: address@hidden
parent: address@hidden
committer: Daniel Colascione <address@hidden>
branch nick: trunk
timestamp: Sun 2014-04-27 16:26:42 -0700
message:
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.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/term/xterm.el xterm.el-20091113204419-o5vbwnq5f7feedwu-884
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-04-25 19:22:26 +0000
+++ b/lisp/ChangeLog 2014-04-27 23:26:42 +0000
@@ -1,3 +1,8 @@
+2014-04-27 Daniel Colascione <address@hidden>
+
+ * 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 <address@hidden>
* progmodes/perl-mode.el (perl--syntax-exp-intro-regexp): New var.
=== modified file 'lisp/term/xterm.el'
--- a/lisp/term/xterm.el 2014-04-25 16:11:07 +0000
+++ b/lisp/term/xterm.el 2014-04-27 23:26:42 +0000
@@ -59,7 +59,12 @@
(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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117026: Avoid adding bracketed paste keys to command keys,
Daniel Colascione <=