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

["Eli Zaretskii" <eliz@is.elta.co.il>]

> From: Harry Kuiper <hkuiper@xs4all.nl>
> Date: 13 Apr 2002 15:40:54 +0200
> 
> I looked at the diffs between term.el in Emacs-21.1 and Emacs-21.2
> using these I backed out the change Eli Zaretskii made at 2002-02-03
> (see below, something about matching terminal prompt).  After that
> term works OK again for me.

Actually, this change was suggested by Daiki Ueno; I was asked
(probably by Richard Stallman) to install it.

The bug which the change was supposed to fix is explained here:

  http://mail.gnu.org/pipermail/bug-gnu-emacs/2002-January/010123.html

> <<<<< Eli's changes I backed out. >>>>>
> 
> + 2002-02-03  Eli Zaretskii  <eliz@is.elta.co.il>
> + 
> + 	* term.el (term-emulate-terminal): Extract proper command string
> + 	which is supplied to term-command-hook.
> + 
> 
> --- 797,814 ----
> *************** See `term-prompt-regexp'."
> *** 2856,2864 ****
>   			    (beep t)) ; Bell
>   			   ((eq char ?\032)
> ! 			    (let ((end (string-match "\n" str i)))
>   			      (if end
>   				  (progn (funcall term-command-hook
> ! 						  (substring str (1+ i) (1- end)))
> ! 					 (setq i end))
>   				(setq term-terminal-parameter
>   				      (substring str i))
> --- 2831,2839 ----
>   			    (beep t)) ; Bell
>   			   ((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)))
>   				(setq term-terminal-parameter
>   				      (substring str i))
> <<<<< End >>>>>