Re: term.el (term-emulate-terminal)

[Harry Kuiper <hkuiper@xs4all.nl>]

Harry Kuiper <hkuiper@xs4all.nl> writes:
<snip>
> present.  Shouldn't the regexp match zero or more ^Z's followed by a
> newline instead of at least one ^Z?

Wrong track didn't work.  I misunderstood the meaning of ? in elisp
regexps.

However the version below (eterm.el.hk) works OK for me.  The
difference is in the way the position to resume processing is
determined after the \032 escape is handled.

cd /usr/local/share/emacs/21.2/lisp/
diff -uw /usr/local/share/emacs/21.2/lisp/term.el.broken /usr/local/share/emacs/21.2/lisp/term.el.hk
--- /usr/local/share/emacs/21.2/lisp/term.el.broken	Sun Feb  3 12:56:52 2002
+++ /usr/local/share/emacs/21.2/lisp/term.el.hk	Sun Apr 14 00:11:47 2002
@@ -2830,11 +2830,11 @@
 			   ((eq char ?\^G)
 			    (beep t)) ; Bell
 			   ((eq char ?\032)
-			    (let ((end (string-match "\r?$" str i)))
+			    (let ((end (string-match "\r?\n" str i)))
 			      (if end
 				  (progn (funcall term-command-hook
 						  (substring str (1+ i) end))
-					 (setq i (match-end 0)))
+					 (setq i (1+ end)))
 				(setq term-terminal-parameter
 				      (substring str i))
 				(setq term-terminal-state 4)

Diff finished at Sun Apr 14 00:25:46
                            ~~~~~~~
Oops, time for bed now :-) ----^

-- 
Harry Kuiper                 hkuiper@xs4all.nl
Haarlem, The Netherlands