Re: freeze after M-x term, ^L

[Harry Kuiper]

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