From: Kai Gro?j. <ka...@us...> - 2002-03-25 16:30:06
|
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 |