# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1169908808 0
# Node ID 0d32395ff1eb7837f41bb02001854ab13abe1b77
# Parent  d19b2a81fa123b4ef1b9340f53e78481e79e248e
* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set
default-directory to a sane value when calling start-process.

diff -r d19b2a81fa12 -r 0d32395ff1eb lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jan 27 13:52:16 2007 +0000
+++ b/lisp/ChangeLog	Sat Jan 27 14:40:08 2007 +0000
@@ -1,3 +1,8 @@
+2007-01-27  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set
+	default-directory to a sane value when calling start-process.
+
 2007-01-27  Eli Zaretskii  <eliz@gnu.org>
 
 	* ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom.
diff -r d19b2a81fa12 -r 0d32395ff1eb lisp/net/tramp.el
--- a/lisp/net/tramp.el	Sat Jan 27 13:52:16 2007 +0000
+++ b/lisp/net/tramp.el	Sat Jan 27 14:40:08 2007 +0000
@@ -3245,8 +3245,13 @@
 
       ;; Use rcp-like program for file transfer.
       (unwind-protect
-          (let ((p (apply 'start-process (buffer-name trampbuf) trampbuf
-                          copy-program copy-args)))
+          (let* ((default-directory
+		   (if (and (stringp default-directory)
+			    (file-accessible-directory-p default-directory))
+		       default-directory
+		     (tramp-temporary-file-directory)))
+		 (p (apply 'start-process (buffer-name trampbuf) trampbuf
+			   copy-program copy-args)))
             (tramp-set-process-query-on-exit-flag p nil)
             (tramp-process-actions p multi-method method user host
                                    tramp-actions-copy-out-of-band))