diff options
| author | Eli Zaretskii | 2002-04-16 18:50:07 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2002-04-16 18:50:07 +0000 |
| commit | 04e7ed7b6ef24c8591a674e238b828695a8baa0b (patch) | |
| tree | f2449e912b7a00e96a9b2422b27eff9f33576e38 | |
| parent | 2400310de09ecee7626bc068de00c1d554cb8b13 (diff) | |
| download | emacs-04e7ed7b6ef24c8591a674e238b828695a8baa0b.tar.gz emacs-04e7ed7b6ef24c8591a674e238b828695a8baa0b.zip | |
(term-emulate-terminal): Fix last change.
| -rw-r--r-- | lisp/term.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index fb253932704..eecd2abdf6e 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -2829,9 +2829,9 @@ See `term-prompt-regexp'." | |||
| 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) |