Mercurial > emacs
diff 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 |
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)