mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set

Browse Source 
default-directory to a sane value when calling start-process.
This commit is contained in:
Michael Albinus 2007-01-27 14:40:08 +00:00
parent 9b0aaece34
commit 00e10871c5
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

9
lisp/net/tramp.el
View File

@ -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))