From: Michael Albinus Date: Sat, 27 Jan 2007 14:40:08 +0000 (+0000) Subject: * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set X-Git-Tag: emacs-pretest-22.0.94~606 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00e10871c5ff827693aa82dc12b269bc9951a28f;p=emacs.git * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set default-directory to a sane value when calling start-process. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4bf785d5b1a..613bd9e6bcd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-01-27 Michael Albinus + + * 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 * ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 5625072a155..257fbc4e47b 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3245,8 +3245,13 @@ be a local filename. The method used must be an out-of-band method." ;; 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))