[Tramp-checkins] CVS: tramp/lisp ChangeLog,2.92,2.93 tramp.el,2.92,2.93

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

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

Modified Files:
	ChangeLog tramp.el 
Log Message:
(tramp-handle-expand-file-name): Erase buffer after expanding tilde.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v
retrieving revision 2.92
retrieving revision 2.93
diff -C2 -d -r2.92 -r2.93
*** ChangeLog	25 Mar 2002 09:29:39 -0000	2.92
--- ChangeLog	25 Mar 2002 16:30:02 -0000	2.93
***************
*** 5,8 ****
--- 5,9 ----
  	(tramp-post-connection): Only set "ln" connection property if
  	that program could be found.  Erase buffer when done.
+ 	(tramp-handle-expand-file-name): Erase buffer after expanding tilde.
  
  2002-03-12  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.92
retrieving revision 2.93
diff -C2 -d -r2.92 -r2.93
*** tramp.el	25 Mar 2002 09:29:39 -0000	2.92
--- tramp.el	25 Mar 2002 16:30:02 -0000	2.93
***************
*** 2343,2347 ****
  	    (goto-char (point-min))
  	    (setq uname (buffer-substring (point) (tramp-line-end-position)))
! 	    (setq path (concat uname fname))))
  	;; No tilde characters in file name, do normal
  	;; expand-file-name (this does "/./" and "/../").  We bind
--- 2343,2348 ----
  	    (goto-char (point-min))
  	    (setq uname (buffer-substring (point) (tramp-line-end-position)))
! 	    (setq path (concat uname fname))
! 	    (erase-buffer)))
  	;; No tilde characters in file name, do normal
  	;; expand-file-name (this does "/./" and "/../").  We bind