Mercurial > emacs
changeset 44637:ae3eecc8a60d
(term-emulate-terminal): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 16 Apr 2002 18:50:07 +0000 |
| parents | cc5f9d3c4caf |
| children | f493f98836cd |
| files | lisp/term.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Tue Apr 16 18:26:02 2002 +0000 +++ b/lisp/term.el Tue Apr 16 18:50:07 2002 +0000 @@ -2829,9 +2829,9 @@ ((eq char ?\032) (let ((end (string-match "\r?$" str i))) (if end - (progn (funcall term-command-hook - (substring str (1+ i) end)) - (setq i (match-end 0))) + (funcall term-command-hook + (prog1 (substring str (1+ i) end) + (setq i (match-end 0)))) (setq term-terminal-parameter (substring str i)) (setq term-terminal-state 4)