diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-04-16 18:50:07 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-04-16 18:50:07 +0000 |
| commit | 04e7ed7b6ef24c8591a674e238b828695a8baa0b (patch) | |
| tree | f2449e912b7a00e96a9b2422b27eff9f33576e38 /lisp/term.el | |
| parent | 2400310de09ecee7626bc068de00c1d554cb8b13 (diff) | |
| download | emacs-04e7ed7b6ef24c8591a674e238b828695a8baa0b.tar.gz | |
(term-emulate-terminal): Fix last change.
Diffstat (limited to 'lisp/term.el')
| -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'." ((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) |