# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1018983007 0
# Node ID ae3eecc8a60da85d54b25983af2e9c71cc839a54
# Parent  cc5f9d3c4cafe4c5893e57d48c90672b6535adfa
(term-emulate-terminal): Fix last change.

diff -r cc5f9d3c4caf -r ae3eecc8a60d lisp/term.el
--- 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)