Mercurial > emacs
comparison lisp/term.el @ 44637:ae3eecc8a60d
(term-emulate-terminal): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 16 Apr 2002 18:50:07 +0000 |
| parents | 89b8de61964f |
| children | 315ff0f95c70 |
comparison
equal
deleted
inserted
replaced
| 44636:cc5f9d3c4caf | 44637:ae3eecc8a60d |
|---|---|
| 2827 ((eq char ?\^G) | 2827 ((eq char ?\^G) |
| 2828 (beep t)) ; Bell | 2828 (beep t)) ; Bell |
| 2829 ((eq char ?\032) | 2829 ((eq char ?\032) |
| 2830 (let ((end (string-match "\r?$" str i))) | 2830 (let ((end (string-match "\r?$" str i))) |
| 2831 (if end | 2831 (if end |
| 2832 (progn (funcall term-command-hook | 2832 (funcall term-command-hook |
| 2833 (substring str (1+ i) end)) | 2833 (prog1 (substring str (1+ i) end) |
| 2834 (setq i (match-end 0))) | 2834 (setq i (match-end 0)))) |
| 2835 (setq term-terminal-parameter | 2835 (setq term-terminal-parameter |
| 2836 (substring str i)) | 2836 (substring str i)) |
| 2837 (setq term-terminal-state 4) | 2837 (setq term-terminal-state 4) |
| 2838 (setq i str-length)))) | 2838 (setq i str-length)))) |
| 2839 (t ; insert char FIXME: Should never happen | 2839 (t ; insert char FIXME: Should never happen |