summaryrefslogtreecommitdiff
path: root/lisp/term.el
diff options
context:
space:
mode:
authorJohan Claesson <johanclaesson@bredband.net>2016-12-28 12:56:11 -0500
committerNoam Postavsky <npostavs@gmail.com>2017-01-04 23:20:47 -0500
commitd88cdad2847726438c7d1de9fd2651c4be9243aa (patch)
tree536d471f117c2c2d14b13d2ab59285f41000ef5f /lisp/term.el
parent0392f942c787f1a42b3e5d9516a447687ed3baef (diff)
downloademacs-d88cdad2847726438c7d1de9fd2651c4be9243aa.tar.gz
Fix term.el handling of ^Z-sequences spanning chunks
Bash will after each command send ?\032 and the current directory "/tmp" to inform term.el. Bash output is buffered in 4096 bytes chunks. If a command outputs roughly 4096 bytes then the end of the first chunk will be "/tm" (Bug#13350). * lisp/term.el (term-emulate-terminal): Change the regexp to find the end of the ?\032 sequence to use \n instead of $, the latter can match end of string as well. Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/term.el')
-rw-r--r--lisp/term.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term.el b/lisp/term.el
index a3933ae4a4f..5259571eb6d 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2903,12 +2903,12 @@ See `term-prompt-regexp'."
(beep t))
((and (eq char ?\032)
(not handled-ansi-message))
- (let ((end (string-match "\r?$" str i)))
+ (let ((end (string-match "\r?\n" str i)))
(if end
(funcall term-command-hook
(decode-coding-string
(prog1 (substring str (1+ i) end)
- (setq i (match-end 0)))
+ (setq i (1- (match-end 0))))
locale-coding-system))
(setq term-terminal-parameter (substring str i))
(setq term-terminal-state 4)