2830 |
((eq char ?\^G) |
((eq char ?\^G) |
2831 |
(beep t)) ; Bell |
(beep t)) ; Bell |
2832 |
((eq char ?\032) |
((eq char ?\032) |
2833 |
(let ((end (string-match "\r?$" str i))) |
(let ((end (string-match "\r?\n" str i))) |
2834 |
(if end |
(if end |
2835 |
(progn (funcall term-command-hook |
(funcall term-command-hook |
2836 |
(substring str (1+ i) end)) |
(prog1 (substring str (1+ i) end) |
2837 |
(setq i (match-end 0))) |
(setq i (match-end 0)))) |
2838 |
(setq term-terminal-parameter |
(setq term-terminal-parameter |
2839 |
(substring str i)) |
(substring str i)) |
2840 |
(setq term-terminal-state 4) |
(setq term-terminal-state 4) |