[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/01/27 14:40:08

Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- net/tramp.el        21 Jan 2007 20:38:00 -0000      1.118
+++ net/tramp.el        27 Jan 2007 14:40:08 -0000      1.119
@@ -3245,7 +3245,12 @@
 
       ;; Use rcp-like program for file transfer.
       (unwind-protect
-          (let ((p (apply 'start-process (buffer-name trampbuf) trampbuf
+          (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