2827 |
((eq char ?\^G) |
((eq char ?\^G) |
2828 |
(beep t)) ; Bell |
(beep t)) ; Bell |
2829 |
((eq char ?\032) |
((eq char ?\032) |
2830 |
(let ((end (string-match "\n" str i))) |
(let ((end (string-match "\r?$" str i))) |
2831 |
(if end |
(if end |
2832 |
(progn (funcall term-command-hook |
(progn (funcall term-command-hook |
2833 |
(substring str (1+ i) (1- end))) |
(substring str (1+ i) end)) |
2834 |
(setq i end)) |
(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) |