Re: freeze after M-x term, ^L

[Harry Kuiper <hkuiper@xs4all.nl>]

rwa@mirage.ca (Robert W Anderson) writes:

> This bug report will be sent to the Free Software Foundation,
> not to your local site managers!
> Please write in English, because the Emacs maintainers do not have
> translators to read other languages for them.
<snip> 
> Please describe exactly what actions triggered the bug
> and the precise symptoms of the bug:
> 
> Actions: 
> 
> M-x term (to enter terminal mode)
> ^L (to clear screen)
> ls (to list files)
> 
> at which point emacs freezes indefinitely and must be
> killed.

This problem was solved by Daiki Ueno.  His patch will be part of the
next Emacs release.  FYI here is the patch:

Index: term.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term.el,v
retrieving revision 1.46
diff -u -F^( -r1.46 term.el
--- term.el	3 Feb 2002 11:25:23 -0000	1.46
+++ term.el	14 Apr 2002 00:56:23 -0000
@@ -2827,11 +2827,11 @@ (defun term-emulate-terminal (proc str)
 			   ((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)))
+				  (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)

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