2829 |
((eq char ?\032) |
((eq char ?\032) |
2830 |
(let ((end (string-match "\r?$" str i))) |
(let ((end (string-match "\r?$" str i))) |
2831 |
(if end |
(if end |
2832 |
(progn (funcall term-command-hook |
(funcall term-command-hook |
2833 |
(substring str (1+ i) end)) |
(prog1 (substring str (1+ i) end) |
2834 |
(setq i (match-end 0))) |
(setq i (match-end 0)))) |
2835 |
(setq term-terminal-parameter |
(setq term-terminal-parameter |
2836 |
(substring str i)) |
(substring str i)) |
2837 |
(setq term-terminal-state 4) |
(setq term-terminal-state 4) |