diff options
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/xterm.el | 7 |
1 files changed, 6 insertions, 1 deletions
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: | |||
| 59 | (while (not (search-backward | 59 | (while (not (search-backward |
| 60 | xterm-paste-ending-sequence | 60 | xterm-paste-ending-sequence |
| 61 | (- (point) end-marker-length) t)) | 61 | (- (point) end-marker-length) t)) |
| 62 | (let ((event (read-event))) | 62 | (let ((event (read-event |
| 63 | nil nil | ||
| 64 | ;; Use finite timeout to avoid | ||
| 65 | ;; glomming the event onto | ||
| 66 | ;; this-command-keys. | ||
| 67 | most-positive-fixnum))) | ||
| 63 | (when (eql event ?\r) | 68 | (when (eql event ?\r) |
| 64 | (setf event ?\n)) | 69 | (setf event ?\n)) |
| 65 | (insert event))) | 70 | (insert event))) |