From 38d63e6af4aa0be39c08f9ca086a21c930840e26 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 24 Jul 2008 21:46:20 +0000 Subject: [PATCH] * net/tramp.el (tramp-handle-start-file-process): Make NAME a unique process name. Reported by Markus Triska . --- lisp/ChangeLog | 7 +++++++ lisp/net/tramp.el | 8 +++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a4e89c4264f..79f680ec932 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-07-24 Michael Albinus + + * net/tramp.el (tramp-handle-start-file-process): Make NAME a unique + process name. Reported by Markus Triska . + + * net/xesam.el: New file. + 2008-07-24 Sven Joachim * dired-aux.el (dired-copy-file-recursive): Avoid calling diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index b7792b0e90f..17cc5938042 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -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) -- 2.39.2