Commit 38d63e6a authored by Michael Albinus's avatar Michael Albinus

* net/tramp.el (tramp-handle-start-file-process): Make NAME a unique

process name.  Reported by Markus Triska <markus.triska@gmx.at>.
parent 24008bc4
2008-07-24 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-start-file-process): Make NAME a unique
process name. Reported by Markus Triska <markus.triska@gmx.at>.
* net/xesam.el: New file.
2008-07-24 Sven Joachim <svenjoac@gmx.de>
* dired-aux.el (dired-copy-file-recursive): Avoid calling
......
......@@ -3677,11 +3677,17 @@ beginning of local filename are not substituted."
"Like `start-file-process' for Tramp files."
(with-parsed-tramp-file-name default-directory nil
(unwind-protect
(progn
(let ((name1 name)
(i 0))
(unless buffer
;; BUFFER can be nil. We use a temporary buffer, which is
;; killed in `tramp-process-sentinel'.
(setq buffer (generate-new-buffer tramp-temp-buffer-name)))
(while (get-process name1)
;; NAME must be unique as process name.
(setq i (1+ i)
name1 (format "%s<%d>" name i)))
(setq name name1)
;; Set the new process properties.
(tramp-set-connection-property v "process-name" name)
(tramp-set-connection-property v "process-buffer" buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment