From 04e7ed7b6ef24c8591a674e238b828695a8baa0b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 16 Apr 2002 18:50:07 +0000 Subject: [PATCH] (term-emulate-terminal): Fix last change. --- lisp/term.el | 6 +++--- 1 file 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) -- 2.39.5