* bug#31193: 26.1; error in `term-down' after window configuration change
@ 2018-04-17 13:00 Phil Sainty
2018-04-17 13:23 ` Noam Postavsky
0 siblings, 1 reply; 11+ messages in thread
From: Phil Sainty @ 2018-04-17 13:00 UTC (permalink / raw)
To: 31193
In a `term' buffer, seemingly after any window configuration change, the
process filter triggers an error due to `term-current-row' being nil
unexpectedly.
Recipe:
emacs -Q
M-x toggle-debug-on-error
M-x term
RET
RET #repeatedly -- all is fine at this point...
C-c 2
RET
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p
nil)
term-down(1 t)
term-emulate-terminal(#<process terminal> "\015\033[K$
\015\n\032//home/phil\015\n")
That window config change could be C-c 2 or C-c 3 or, if already split,
C-c 1;
it doesn't seem to matter.
With an uncompiled `term-down':
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p
nil)
=(nil 0)
(and (= term-current-row 0) (< down 0))
(if (and (= term-current-row 0) (< down 0)) ...)
(let ((start-column (term-horizontal-column))) ...)
term-down(1 t)
term-emulate-terminal(#<process terminal> "\015\033[K$
\015\n\032//home/phil\015\n")
That test of (= term-current-row 0) occurs twice in the function.
Trivially, testing (bound-and-true-p term-current-row) beforehand in
both pieces of code circumvents the error and appears in practice to
resolve the issue, but I don't know whether that's the *right* fix.
-Phil
In GNU Emacs 26.1 (build 1, x86_64-pc-linux-gnu, X toolkit, Xaw3d scroll
bars)
of 2018-04-15 built on shodan
Windowing system distributor 'The X.Org Foundation', version
11.0.11804000
System Description: Ubuntu 16.04.4 LTS
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Debug on Error enabled globally
Entering debugger...
term-emulate-terminal: Wrong type argument: number-or-marker-p, nil
Configured using:
'configure --prefix=/home/phil/emacs/26.1rc1/usr/local
--with-x-toolkit=lucid --without-sound'
Configured features:
XAW3D XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK DBUS GSETTINGS NOTIFY
GNUTLS LIBXML2 FREETYPE XFT ZLIB TOOLKIT_SCROLL_BARS LUCID X11 THREADS
LCMS2
Important settings:
value of $LANG: en_NZ.UTF-8
locale-coding-system: utf-8-unix
Major mode: Debugger
Minor modes in effect:
tooltip-mode: t
global-eldoc-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
tool-bar-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
buffer-read-only: t
line-number-mode: t
transient-mark-mode: (only . t)
Load-path shadows:
None found.
Features:
(shadow sort mail-extr emacsbug message rmc puny seq dired
dired-loaddefs format-spec rfc822 mml mml-sec password-cache epa derived
epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail
rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils help-mode
cl-print byte-opt gv bytecomp byte-compile cl-loaddefs cl-lib cconv
debug term disp-table easymenu ehelp ring cus-start cus-load elec-pair
time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode elisp-mode lisp-mode prog-mode register page menu-bar
rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core term/tty-colors frame cl-generic cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese composite charscript charprop
case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting x-toolkit x
multi-tty make-network-process emacs)
Memory information:
((conses 16 108699 9507)
(symbols 48 22248 1)
(miscs 40 76 129)
(strings 32 32773 1265)
(string-bytes 1 829787)
(vectors 16 14995)
(vector-slots 8 503659 11454)
(floats 8 61 115)
(intervals 56 287 0)
(buffers 992 13)
(heap 1024 42349 1368))
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-17 13:00 bug#31193: 26.1; error in `term-down' after window configuration change Phil Sainty
@ 2018-04-17 13:23 ` Noam Postavsky
2018-04-17 13:49 ` Phil Sainty
0 siblings, 1 reply; 11+ messages in thread
From: Noam Postavsky @ 2018-04-17 13:23 UTC (permalink / raw)
To: Phil Sainty; +Cc: 31193
Phil Sainty <psainty@orcon.net.nz> writes:
> In a `term' buffer, seemingly after any window configuration change, the
> process filter triggers an error due to `term-current-row' being nil
> unexpectedly.
>
> Recipe:
>
> emacs -Q
> M-x toggle-debug-on-error
> M-x term
> RET
> RET #repeatedly -- all is fine at this point...
> C-c 2
> RET
>
> Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p
> nil)
> term-down(1 t)
> term-emulate-terminal(#<process terminal> "\015\033[K$
> \015\n\032//home/phil\015\n")
Hmm, I'm not able to reproduce this, even though it makes sense to me
that my fix for Bug#30544 [1: a64c11a3aa] would cause this. Perhaps it
depends on your shell prompt as well?
> That test of (= term-current-row 0) occurs twice in the function.
>
> Trivially, testing (bound-and-true-p term-current-row) beforehand in
> both pieces of code circumvents the error and appears in practice to
> resolve the issue, but I don't know whether that's the *right* fix.
I think changing them to function calls, i.e., (term-current-row)
instead of term-current-row would be the right thing; all the other term
functions use the function rather than accessing the variable directly.
[1: a64c11a3aa]: 2018-04-02 06:57:53 -0400
Fix term.el rendering following a window resize (Bug#30544)
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=a64c11a3aa49121ceab79a2acc99c829d42417bd>
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-17 13:23 ` Noam Postavsky
@ 2018-04-17 13:49 ` Phil Sainty
2018-04-18 0:07 ` Noam Postavsky
0 siblings, 1 reply; 11+ messages in thread
From: Phil Sainty @ 2018-04-17 13:49 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 31193
On 2018-04-18 01:23, Noam Postavsky wrote:
> Hmm, I'm not able to reproduce this, even though it makes sense to me
> that my fix for Bug#30544 [1: a64c11a3aa] would cause this. Perhaps it
> depends on your shell prompt as well?
I do have a non-trivial prompt; but after setting PS1="$ " I still see
the same issue, so I'm unsure whether that's a factor. My shell is
bash.
> I think changing them to function calls, i.e., (term-current-row)
> instead of term-current-row would be the right thing; all the other
> term
> functions use the function rather than accessing the variable directly.
That sounds sane, and I can confirm that it fixes the problem.
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-17 13:49 ` Phil Sainty
@ 2018-04-18 0:07 ` Noam Postavsky
2018-04-18 1:04 ` Phil Sainty
2018-04-18 6:25 ` Eli Zaretskii
0 siblings, 2 replies; 11+ messages in thread
From: Noam Postavsky @ 2018-04-18 0:07 UTC (permalink / raw)
To: Phil Sainty; +Cc: 31193
[-- Attachment #1: Type: text/plain, Size: 1769 bytes --]
tags 31193 + patch
quit
Phil Sainty <psainty@orcon.net.nz> writes:
> On 2018-04-18 01:23, Noam Postavsky wrote:
>> Hmm, I'm not able to reproduce this, even though it makes sense to me
>> that my fix for Bug#30544 [1: a64c11a3aa] would cause this. Perhaps it
>> depends on your shell prompt as well?
>
> I do have a non-trivial prompt; but after setting PS1="$ " I still see
> the same issue, so I'm unsure whether that's a factor. My shell is
> bash.
Hmm, maybe it's a difference in bash versions? I tried adding a newline
to my prompt with PS1=$'one\ntwo$ ', but bash doesn't send the newline
after the terminal resizes. Seems it's clever enough just to redraw the
last line.
GNU bash, version 4.4.12(1)-release (x86_64-pc-linux-gnu)
And since terminal-emulate-terminal doesn't receive a \n character, it
doesn't call term-down before calling (term-current-row) near the end of
that function:
(when (>= (term-current-row) term-height)
(term-handle-deferred-scroll))
So I definitely can't see how you trigger this with PS1="$ ", but
perhaps your version of bash sends a newline for some other reason? Can
you show the backtrace with PS1="$ "?
>> I think changing them to function calls, i.e., (term-current-row)
>> instead of term-current-row would be the right thing; all the other
>> term
>> functions use the function rather than accessing the variable directly.
>
> That sounds sane, and I can confirm that it fixes the problem.
Okay, here's the patch with message. Eli, should I apply this to
emacs-26? I believe it's safe because the term-current-row function
simply returns the value of the term-current-row variable if that is
non-nil. Hence it should only affect cases where we were going to
signal an error due to type-mismatch anyway.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: patch --]
[-- Type: text/x-diff, Size: 1441 bytes --]
From c1faca2b07ac86f84450bbb95ecb6d8635410281 Mon Sep 17 00:00:00 2001
From: Noam Postavsky <npostavs@gmail.com>
Date: Tue, 17 Apr 2018 19:17:18 -0400
Subject: [PATCH] Don't assume term-current-row cache is valid (Bug#31193)
* lisp/term.el (term-down): Call `term-current-row' instead of
directly accessing the variable `term-current-row. Following a resize
of the terminal's window, `term-current-row' is reset to nil, so it is
not safe to assume it is a number.
---
lisp/term.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/term.el b/lisp/term.el
index 0a5efa4abc..6860ea6934 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3764,7 +3764,7 @@ term-down
(let ((start-column (term-horizontal-column)))
(when (and check-for-scroll (or term-scroll-with-delete term-pager-count))
(setq down (term-handle-scroll down)))
- (unless (and (= term-current-row 0) (< down 0))
+ (unless (and (= (term-current-row) 0) (< down 0))
(term-adjust-current-row-cache down)
(when (or (/= (point) (point-max)) (< down 0))
(setq down (- down (term-vertical-motion down)))))
@@ -3774,7 +3774,7 @@ term-down
(setq term-current-column 0)
(setq term-start-line-column 0))
(t
- (when (= term-current-row 0)
+ (when (= (term-current-row) 0)
;; Insert lines if at the beginning.
(save-excursion (term-insert-char ?\n (- down)))
(save-excursion
--
2.11.0
^ permalink raw reply related [flat|nested] 11+ messages in thread* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 0:07 ` Noam Postavsky
@ 2018-04-18 1:04 ` Phil Sainty
2018-04-18 2:04 ` Noam Postavsky
2018-04-18 5:05 ` Phil Sainty
2018-04-18 6:25 ` Eli Zaretskii
1 sibling, 2 replies; 11+ messages in thread
From: Phil Sainty @ 2018-04-18 1:04 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 31193, bug-gnu-emacs
On 2018-04-18 12:07, Noam Postavsky wrote:
> Hmm, maybe it's a difference in bash versions? I tried adding a
> newline
> to my prompt with PS1=$'one\ntwo$ ', but bash doesn't send the newline
> after the terminal resizes. Seems it's clever enough just to redraw
> the
> last line.
>
> GNU bash, version 4.4.12(1)-release (x86_64-pc-linux-gnu)
Mine is:
GNU bash, version 4.3.11(1)-release (x86_64-pc-linux-gnu)
> Can you show the backtrace with PS1="$ "?
Sure. This is with a .bashrc containing only that setting, and an
otherwise blank-slate $HOME directory, in case anything else I was
doing had an effect. It might still be due to system-wide config,
but the bash version difference seems as likely as anything else?
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p
nil)
=(nil 0)
(and (= term-current-row 0) (< down 0))
(if (and (= term-current-row 0) (< down 0)) nil
(term-adjust-current-row-cache down) (if (or (/= (point) (point-max)) (<
down 0)) (progn (setq down (- down (funcall term-vertical-motion
down))))))
(let ((start-column (term-horizontal-column))) (if (and
check-for-scroll (or term-scroll-with-delete term-pager-count)) (progn
(setq down (term-handle-scroll down)))) (if (and (= term-current-row 0)
(< down 0)) nil (term-adjust-current-row-cache down) (if (or (/= (point)
(point-max)) (< down 0)) (progn (setq down (- down (funcall
term-vertical-motion down)))))) (cond ((>= down 0) (term-insert-char 10
down) (setq term-current-column 0) (setq term-start-line-column 0)) (t
(if (= term-current-row 0) (progn (save-excursion (term-insert-char 10
(- down))) (save-excursion (let (p) (forward-line term-height) (setq p
(point)) (forward-line (- down)) (delete-region p (point)))))) (setq
term-current-column 0) (setq term-start-line-column (current-column))))
(if start-column (progn (term-move-columns start-column))))
term-down(1 t)
(if (and term-kill-echo-list (term-check-kill-echo-list)) nil
(term-down 1 t))
(cond ((> funny i) (cond ((eq term-terminal-state 1) (term-down 1 t)
(term-move-columns (- (term-current-column))) (setq term-terminal-state
0))) (setq decoded-substring (decode-coding-string (substring str i
funny) locale-coding-system)) (setq count (length decoded-substring))
(if (= funny str-length) (progn (let ((partial 0)) (while (eq
(char-charset (aref decoded-substring (- count 1 partial))) 'eight-bit)
(setq partial (1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))
(cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(while (< i str-length) (setq char (aref str i)) (cond ((<
term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))
(save-restriction (if (and (> (point-max) (process-mark proc)) (not
(eq (current-local-map) term-raw-map))) (progn (narrow-to-region
(point-min) (process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i))))
(progn (let ((newstr (term-handle-ansi-terminal-messages str))) (if
(eq str newstr) nil (setq handled-ansi-message t str newstr))) (setq
str-length (length str)) (if (marker-buffer term-pending-delete-marker)
(progn (delete-region term-pending-delete-marker (process-mark proc))
(set-marker term-pending-delete-marker nil))) (if (/= (point)
(process-mark proc)) (progn (setq save-point (point-marker)))) (setq
term-vertical-motion (if (eq (window-buffer) (current-buffer))
'vertical-motion 'term-buffer-vertical-motion)) (setq save-marker
(copy-marker (process-mark proc))) (goto-char (process-mark proc))
(save-restriction (if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(unwind-protect (progn (let ((newstr
(term-handle-ansi-terminal-messages str))) (if (eq str newstr) nil (setq
handled-ansi-message t str newstr))) (setq str-length (length str)) (if
(marker-buffer term-pending-delete-marker) (progn (delete-region
term-pending-delete-marker (process-mark proc)) (set-marker
term-pending-delete-marker nil))) (if (/= (point) (process-mark proc))
(progn (setq save-point (point-marker)))) (setq term-vertical-motion (if
(eq (window-buffer) (current-buffer)) 'vertical-motion
'term-buffer-vertical-motion)) (setq save-marker (copy-marker
(process-mark proc))) (goto-char (process-mark proc)) (save-restriction
(if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(internal--after-save-selected-window save-selected-window--state))
(save-current-buffer (unwind-protect (progn (let ((newstr
(term-handle-ansi-terminal-messages str))) (if (eq str newstr) nil (setq
handled-ansi-message t str newstr))) (setq str-length (length str)) (if
(marker-buffer term-pending-delete-marker) (progn (delete-region
term-pending-delete-marker (process-mark proc)) (set-marker
term-pending-delete-marker nil))) (if (/= (point) (process-mark proc))
(progn (setq save-point (point-marker)))) (setq term-vertical-motion (if
(eq (window-buffer) (current-buffer)) 'vertical-motion
'term-buffer-vertical-motion)) (setq save-marker (copy-marker
(process-mark proc))) (goto-char (process-mark proc)) (save-restriction
(if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(internal--after-save-selected-window save-selected-window--state)))
(let ((save-selected-window--state
(internal--before-save-selected-window))) (save-current-buffer
(unwind-protect (progn (let ((newstr (term-handle-ansi-terminal-messages
str))) (if (eq str newstr) nil (setq handled-ansi-message t str
newstr))) (setq str-length (length str)) (if (marker-buffer
term-pending-delete-marker) (progn (delete-region
term-pending-delete-marker (process-mark proc)) (set-marker
term-pending-delete-marker nil))) (if (/= (point) (process-mark proc))
(progn (setq save-point (point-marker)))) (setq term-vertical-motion (if
(eq (window-buffer) (current-buffer)) 'vertical-motion
'term-buffer-vertical-motion)) (setq save-marker (copy-marker
(process-mark proc))) (goto-char (process-mark proc)) (save-restriction
(if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(internal--after-save-selected-window save-selected-window--state))))
(let* ((i 0) char funny count count-bytes decoded-substring save-point
save-marker old-point temp win (inhibit-read-only t) (buffer-undo-list
t) (selected (selected-window)) last-win handled-ansi-message
(str-length (length str))) (let ((save-selected-window--state
(internal--before-save-selected-window))) (save-current-buffer
(unwind-protect (progn (let ((newstr (term-handle-ansi-terminal-messages
str))) (if (eq str newstr) nil (setq handled-ansi-message t str
newstr))) (setq str-length (length str)) (if (marker-buffer
term-pending-delete-marker) (progn (delete-region
term-pending-delete-marker (process-mark proc)) (set-marker
term-pending-delete-marker nil))) (if (/= (point) (process-mark proc))
(progn (setq save-point (point-marker)))) (setq term-vertical-motion (if
(eq (window-buffer) (current-buffer)) 'vertical-motion
'term-buffer-vertical-motion)) (setq save-marker (copy-marker
(process-mark proc))) (goto-char (process-mark proc)) (save-restriction
(if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(internal--after-save-selected-window save-selected-window--state)))))
(save-current-buffer (set-buffer (process-buffer proc)) (let* ((i 0)
char funny count count-bytes decoded-substring save-point save-marker
old-point temp win (inhibit-read-only t) (buffer-undo-list t) (selected
(selected-window)) last-win handled-ansi-message (str-length (length
str))) (let ((save-selected-window--state
(internal--before-save-selected-window))) (save-current-buffer
(unwind-protect (progn (let ((newstr (term-handle-ansi-terminal-messages
str))) (if (eq str newstr) nil (setq handled-ansi-message t str
newstr))) (setq str-length (length str)) (if (marker-buffer
term-pending-delete-marker) (progn (delete-region
term-pending-delete-marker (process-mark proc)) (set-marker
term-pending-delete-marker nil))) (if (/= (point) (process-mark proc))
(progn (setq save-point (point-marker)))) (setq term-vertical-motion (if
(eq (window-buffer) (current-buffer)) 'vertical-motion
'term-buffer-vertical-motion)) (setq save-marker (copy-marker
(process-mark proc))) (goto-char (process-mark proc)) (save-restriction
(if (and (> (point-max) (process-mark proc)) (not (eq
(current-local-map) term-raw-map))) (progn (narrow-to-region (point-min)
(process-mark proc)))) (if term-log-buffer (progn (princ str
term-log-buffer))) (if term-terminal-undecoded-bytes (progn (setq str
(concat term-terminal-undecoded-bytes str)) (setq str-length (length
str)) (setq term-terminal-undecoded-bytes nil))) (cond ((eq
term-terminal-state 4) (setq str (concat term-terminal-parameter str))
(setq term-terminal-parameter nil) (setq str-length (length str)) (setq
term-terminal-state 0))) (while (< i str-length) (setq char (aref str
i)) (cond ((< term-terminal-state 2) (setq funny (string-match
"[\015\n\0\007\033\011\010\032\016\017]" str i)) (if (not funny) (progn
(setq funny str-length))) (cond ((> funny i) (cond ((eq
term-terminal-state 1) (term-down 1 t) (term-move-columns (-
(term-current-column))) (setq term-terminal-state 0))) (setq
decoded-substring (decode-coding-string (substring str i funny)
locale-coding-system)) (setq count (length decoded-substring)) (if (=
funny str-length) (progn (let ((partial 0)) (while (eq (char-charset
(aref decoded-substring (- count 1 partial))) 'eight-bit) (setq partial
(1+ partial))) (if (> partial 0) (progn (setq
term-terminal-undecoded-bytes (substring decoded-substring (- partial)))
(setq decoded-substring (substring decoded-substring 0 (- partial)))
(setq str-length (- str-length partial)) (setq count (- count partial))
(setq funny (- funny partial))))))) (setq temp (- (+
(term-horizontal-column) count) term-width)) (cond ((or
term-suppress-hard-newline (<= temp 0))) ((> count temp) (setq count (-
count temp)) (setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq temp 0) (setq funny (+
count-bytes i))) ((or (not (or term-pager-count
term-scroll-with-delete)) (> (term-handle-scroll 1) 0))
(term-adjust-current-row-cache 1) (setq count (min count term-width))
(setq count-bytes (length (encode-coding-string (substring
decoded-substring 0 count) 'binary))) (setq funny (+ count-bytes i))
(setq term-start-line-column term-current-column)) (t (setq count 0
funny i) (setq term-current-column nil) (setq term-start-line-column
nil))) (setq old-point (point)) (let ((old-column (current-column))
columns pos) (insert (decode-coding-string (substring str i funny)
locale-coding-system)) (setq term-current-column (current-column)
columns (- term-current-column old-column)) (if (not (or (eobp)
term-insert-mode)) (progn (setq pos (point)) (term-move-columns columns)
(delete-region pos (point)))) (if term-insert-mode (progn (setq pos
(point)) (end-of-line) (if (> (current-column) term-width) (progn
(delete-region (- (point) (- (current-column) term-width)) (point))))
(goto-char pos)))) (setq term-current-column nil) (put-text-property
old-point (point) 'font-lock-face term-current-face) (cond ((eq temp 0)
(term-move-columns -1) (setq term-terminal-state 1))) (setq i (1-
funny))) ((and (setq term-terminal-state 0) (eq char 9)) (setq count
(term-current-column)) (setq count (min term-width (+ count 8 (- (mod
count 8))))) (if (> term-width count) (progn (term-move-columns (- count
(term-current-column))) (setq term-current-column count)) (if (>
term-width (term-current-column)) (progn (term-move-columns (1- (-
term-width (term-current-column)))))) (if (= term-width
(term-current-column)) (progn (term-move-columns -1))))) ((eq char 13)
(funcall term-vertical-motion 0) (setq term-current-column
term-start-line-column)) ((eq char 10) (if (and term-kill-echo-list
(term-check-kill-echo-list)) nil (term-down 1 t))) ((eq char 8)
(term-move-columns -1)) ((eq char 27) (setq term-terminal-state 2)) ((eq
char 0)) ((eq char 14)) ((eq char 15)) ((eq char 7) (beep t)) ((eq char
26) (let ((end (string-match "\015?\n" str i))) (if end (progn (if
handled-ansi-message nil (funcall term-command-hook
(decode-coding-string (substring str (1+ i) end) locale-coding-system)))
(setq i (1- (match-end 0)))) (setq term-terminal-parameter (substring
str i)) (setq term-terminal-state 4) (setq i str-length)))) (t
(term-move-columns 1) (backward-delete-char 1) (insert char)))) ((eq
term-terminal-state 2) (cond ((eq char 91) (setq term-terminal-parameter
0) (setq term-terminal-previous-parameter -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-more-parameters 0) (setq term-terminal-state 3)) ((eq char
68) (term-handle-deferred-scroll) (term-down 1 t) (setq
term-terminal-state 0)) ((eq char 77) (if (or (< (term-current-row)
term-scroll-start) (>= (1- (term-current-row)) term-scroll-start))
(term-down -1) (term-down -1 t)) (setq term-terminal-state 0)) ((eq char
55) (term-handle-deferred-scroll) (setq term-saved-cursor (list
(term-current-row) (term-horizontal-column) term-ansi-current-bg-color
term-ansi-current-bold term-ansi-current-color
term-ansi-current-invisible term-ansi-current-reverse
term-ansi-current-underline term-current-face)) (setq
term-terminal-state 0)) ((eq char 56) (if term-saved-cursor (progn
(term-goto (nth 0 term-saved-cursor) (nth 1 term-saved-cursor)) (setq
term-ansi-current-bg-color (nth 2 term-saved-cursor)
term-ansi-current-bold (nth 3 term-saved-cursor) term-ansi-current-color
(nth 4 term-saved-cursor) term-ansi-current-invisible (nth 5
term-saved-cursor) term-ansi-current-reverse (nth 6 term-saved-cursor)
term-ansi-current-underline (nth 7 term-saved-cursor) term-current-face
(nth 8 term-saved-cursor)))) (setq term-terminal-state 0)) ((eq char 99)
(setq term-terminal-state 0) (term-reset-terminal)) ((setq
term-terminal-state 0)))) ((eq term-terminal-state 3) (cond ((and (>=
char 48) (<= char 57)) (setq term-terminal-parameter (+ (* 10
term-terminal-parameter) (- char 48)))) ((eq char 59) (setq
term-terminal-more-parameters 1) (setq
term-terminal-previous-parameter-4 term-terminal-previous-parameter-3)
(setq term-terminal-previous-parameter-3
term-terminal-previous-parameter-2) (setq
term-terminal-previous-parameter-2 term-terminal-previous-parameter)
(setq term-terminal-previous-parameter term-terminal-parameter) (setq
term-terminal-parameter 0)) ((eq char 63)) (t (term-handle-ansi-escape
proc char) (setq term-terminal-more-parameters 0) (setq
term-terminal-previous-parameter-4 -1) (setq
term-terminal-previous-parameter-3 -1) (setq
term-terminal-previous-parameter-2 -1) (setq
term-terminal-previous-parameter -1) (setq term-terminal-state 0)))))
(if term-pager-old-local-map (progn (if (> (% (current-column)
term-width) 0) (setq term-terminal-parameter (substring str i)) (if (= 0
i) (setq term-terminal-parameter (concat "\015" (substring str i)))
(setq term-terminal-parameter (substring str (1- i))) (aset
term-terminal-parameter 0 13)) (goto-char (point-max))) (setq
term-terminal-state 4) (make-local-variable 'term-pager-old-filter)
(setq term-pager-old-filter (process-filter proc)) (set-process-filter
proc term-pager-filter) (setq i str-length))) (setq i (1+ i)))) (if (>=
(term-current-row) term-height) (progn (term-handle-deferred-scroll)))
(set-marker (process-mark proc) (point)) (if save-point (progn
(goto-char save-point) (set-marker save-point nil))) (if (and
term-pending-frame (eq (window-buffer selected) (current-buffer)))
(progn (term-display-line (car term-pending-frame) (cdr
term-pending-frame)) (setq term-pending-frame nil))) (setq win selected)
(while (window-minibuffer-p win) (setq win (next-window win nil t)))
(setq last-win win) (while (progn (setq win (next-window win nil t)) (if
(eq (window-buffer win) (process-buffer proc)) (progn (let ((scroll
term-scroll-to-bottom-on-output)) (select-window win) (if (or (= (point)
save-marker) (eq scroll t) (eq scroll 'all) (and (eq selected win) (or
(eq scroll 'this) (not save-point))) (and (eq scroll 'others) (not (eq
selected win)))) (progn (goto-char term-home-marker) (recenter 0)
(goto-char (process-mark proc)) (if (not (pos-visible-in-window-p
(point) win)) (recenter -1)))) (if (and term-scroll-show-maximum-output
(>= (point) (process-mark proc))) (progn (save-excursion (goto-char
(point-max)) (recenter -1))))))) (not (eq win last-win)))) (if (>
term-buffer-maximum-size 0) (progn (save-excursion (goto-char
(process-mark (get-buffer-process (current-buffer)))) (forward-line (-
term-buffer-maximum-size)) (beginning-of-line) (delete-region
(point-min) (point))))) (set-marker save-marker nil))
(internal--after-save-selected-window save-selected-window--state)))))
(if (get-buffer-window (current-buffer)) (progn (redisplay))))
term-emulate-terminal(#<process terminal> "\015\033[K$
\015\n\032//home/phil/emacs/26/26.1rc1/usr/local/share/emacs/26.1/lisp\015\n")
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 1:04 ` Phil Sainty
@ 2018-04-18 2:04 ` Noam Postavsky
2018-04-18 4:23 ` Phil Sainty
2018-04-18 5:05 ` Phil Sainty
1 sibling, 1 reply; 11+ messages in thread
From: Noam Postavsky @ 2018-04-18 2:04 UTC (permalink / raw)
To: Phil Sainty; +Cc: 31193, bug-gnu-emacs
Phil Sainty <psainty@orcon.net.nz> writes:
> On 2018-04-18 12:07, Noam Postavsky wrote:
>> Hmm, maybe it's a difference in bash versions? I tried adding a
>> newline to my prompt with PS1=$'one\ntwo$ ', but bash doesn't send
>> the newline after the terminal resizes. Seems it's clever enough
>> just to redraw the last line.
>>
>> GNU bash, version 4.4.12(1)-release (x86_64-pc-linux-gnu)
>
> Mine is:
> GNU bash, version 4.3.11(1)-release (x86_64-pc-linux-gnu)
>
>
>> Can you show the backtrace with PS1="$ "?
>
> Sure. This is with a .bashrc containing only that setting, and an
> otherwise blank-slate $HOME directory, in case anything else I was
> doing had an effect. It might still be due to system-wide config,
> but the bash version difference seems as likely as anything else?
> term-emulate-terminal(#<process terminal> "\015\033[K$
> \015\n\032//home/phil/emacs/26/26.1rc1/usr/local/share/emacs/26.1/lisp\015\n")
Hmm, yeah, it looks like your bash adds a "\r\n" (\015 is \r) after the
prompt, while mine doesn't. Although, wouldn't that extra \n leave your
cursor one row below the prompt?
I also don't get the \032/<path>\r\n unless I do a 'cd'.
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 2:04 ` Noam Postavsky
@ 2018-04-18 4:23 ` Phil Sainty
2018-04-18 12:15 ` Noam Postavsky
0 siblings, 1 reply; 11+ messages in thread
From: Phil Sainty @ 2018-04-18 4:23 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 31193, bug-gnu-emacs
On 2018-04-18 14:04, Noam Postavsky wrote:
>> term-emulate-terminal(#<process terminal> "\015\033[K$
>> \015\n\032//home/phil/emacs/26/26.1rc1/usr/local/share/emacs/26.1/lisp\015\n")
>
> Hmm, yeah, it looks like your bash adds a "\r\n" (\015 is \r) after the
> prompt, while mine doesn't. Although, wouldn't that extra \n leave
> your
> cursor one row below the prompt?
In practice the carriage return shunts the cursor back to the start of
the
prompt that I was already at, and then gets 'stuck' there -- no new line
is
created.
Typing RET again triggers the same error (with no change to the buffer),
but as soon as I start typing other keys, functionality is restored.
> I also don't get the \032/<path>\r\n unless I do a 'cd'.
I observe that whenever I execute a shell command (or just enter a blank
line) and then trigger the error, I get this the first time:
term-emulate-terminal(#<process terminal> "\015\033[K$\015\n")
but repeatedly re-triggering the error gives me this every time:
term-emulate-terminal(#<process terminal>
"\015\033[K$\015\n\032/<path>\015\n$")
(until I next enter a command or blank line.)
The <path> matches the directory tracking -- I can affect it with cd.
(but setting default-directory does not affect it).
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 4:23 ` Phil Sainty
@ 2018-04-18 12:15 ` Noam Postavsky
0 siblings, 0 replies; 11+ messages in thread
From: Noam Postavsky @ 2018-04-18 12:15 UTC (permalink / raw)
To: Phil Sainty; +Cc: 31193, bug-gnu-emacs
tags 31193 fixed
close 31193
quit
I could reproduce the error when using bash 4.3. The main difference in
versions seems to be that bash-4.4 repaints the last line of the prompt
in reponse to the resize event, whereas bash-4.3 doesn't respond to that
event; it just waits for the next user input.
Phil Sainty <psainty@orcon.net.nz> writes:
> I observe that whenever I execute a shell command (or just enter a blank
> line) and then trigger the error, I get this the first time:
>
> term-emulate-terminal(#<process terminal> "\015\033[K$\015\n")
Although I never got this short string. I always get
"\015\033[K<prompt>\015\n\032/<path>\015\n<prompt>". Not really that
important, it's just kind of tickling my curiosity.
Anyways, pushed the fixed to emacs-26.
[1: b89ff0efdb]: 2018-04-18 07:33:27 -0400
Don't assume term-current-row cache is valid (Bug#31193)
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=b89ff0efdb65e9febe4c3ed2586a48a2b42233aa
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 1:04 ` Phil Sainty
2018-04-18 2:04 ` Noam Postavsky
@ 2018-04-18 5:05 ` Phil Sainty
2018-04-18 5:37 ` Phil Sainty
1 sibling, 1 reply; 11+ messages in thread
From: Phil Sainty @ 2018-04-18 5:05 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 31193, bug-gnu-emacs
On 2018-04-18 13:04, Phil Sainty wrote:
> On 2018-04-18 12:07, Noam Postavsky wrote:
>> Hmm, maybe it's a difference in bash versions?
>> GNU bash, version 4.4.12(1)-release (x86_64-pc-linux-gnu)
>
> GNU bash, version 4.3.11(1)-release (x86_64-pc-linux-gnu)
I've just compiled bash 4.4.12 and confirmed that this issue
does not occur with that version.
GNU bash, version 4.4.12(1)-release (x86_64-unknown-linux-gnu)
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 5:05 ` Phil Sainty
@ 2018-04-18 5:37 ` Phil Sainty
0 siblings, 0 replies; 11+ messages in thread
From: Phil Sainty @ 2018-04-18 5:37 UTC (permalink / raw)
To: Noam Postavsky; +Cc: 31193, bug-gnu-emacs
On 2018-04-18 17:05, Phil Sainty wrote:
> I've just compiled bash 4.4.12 and confirmed that this issue
> does not occur with that version.
And conversely the issue *does* occur with both bash-4.3.tar.gz and
bash-4.3.30.tar.gz if I compile those from source, so you ought to be
able to replicate that behaviour for yourself with either of those.
^ permalink raw reply [flat|nested] 11+ messages in thread
* bug#31193: 26.1; error in `term-down' after window configuration change
2018-04-18 0:07 ` Noam Postavsky
2018-04-18 1:04 ` Phil Sainty
@ 2018-04-18 6:25 ` Eli Zaretskii
1 sibling, 0 replies; 11+ messages in thread
From: Eli Zaretskii @ 2018-04-18 6:25 UTC (permalink / raw)
To: Noam Postavsky; +Cc: psainty, 31193
> From: Noam Postavsky <npostavs@gmail.com>
> Date: Tue, 17 Apr 2018 20:07:41 -0400
> Cc: 31193@debbugs.gnu.org
>
> Okay, here's the patch with message. Eli, should I apply this to
> emacs-26?
Yes, please.
> I believe it's safe because the term-current-row function
> simply returns the value of the term-current-row variable if that is
> non-nil. Hence it should only affect cases where we were going to
> signal an error due to type-mismatch anyway.
Agreed.
Thanks.
^ permalink raw reply [flat|nested] 11+ messages in thread
end of thread, other threads:[~2018-04-18 12:15 UTC | newest]
Thread overview: 11+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-04-17 13:00 bug#31193: 26.1; error in `term-down' after window configuration change Phil Sainty
2018-04-17 13:23 ` Noam Postavsky
2018-04-17 13:49 ` Phil Sainty
2018-04-18 0:07 ` Noam Postavsky
2018-04-18 1:04 ` Phil Sainty
2018-04-18 2:04 ` Noam Postavsky
2018-04-18 4:23 ` Phil Sainty
2018-04-18 12:15 ` Noam Postavsky
2018-04-18 5:05 ` Phil Sainty
2018-04-18 5:37 ` Phil Sainty
2018-04-18 6:25 ` Eli Zaretskii
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).