[Tramp-checkins] CVS: tramp/lisp ChangeLog,2.99,2.100 tramp.el,2.99,2.100

[Kai Gro?j. <ka...@us...>]

Update of /cvsroot/tramp/tramp/lisp
In directory usw-pr-cvs1:/tmp/cvs-serv8284/tramp/lisp

Modified Files:
	ChangeLog tramp.el 
Log Message:
(tramp-send-linewise): Use sleep-for instead of sit-for
to wait 0.1s.  sit-for does not wait if the user types ahead.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v
retrieving revision 2.99
retrieving revision 2.100
diff -C2 -d -r2.99 -r2.100
*** ChangeLog	20 May 2002 10:16:41 -0000	2.99
--- ChangeLog	21 May 2002 10:48:43 -0000	2.100
***************
*** 1,2 ****
--- 1,7 ----
+ 2002-05-21  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+ 
+ 	* tramp.el (tramp-send-linewise): Use sleep-for instead of sit-for
+ 	to wait 0.1s.  sit-for does not wait if the user types ahead.
+ 
  2002-05-20  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
  

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.99
retrieving revision 2.100
diff -C2 -d -r2.99 -r2.100
*** tramp.el	20 May 2002 10:16:42 -0000	2.99
--- tramp.el	21 May 2002 10:48:43 -0000	2.100
***************
*** 4162,4166 ****
      (setq proc (get-buffer-process (current-buffer)))
      (mapcar (lambda (x)
! 	      (sit-for 0.1)
  	      (process-send-string proc
  				   (concat x tramp-rsh-end-of-line)))
--- 4162,4166 ----
      (setq proc (get-buffer-process (current-buffer)))
      (mapcar (lambda (x)
! 	      (sleep-for 0.1)
  	      (process-send-string proc
  				   (concat x tramp-rsh-end-of-line)))