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

process name.  Reported by Markus Triska <markus.triska@gmx.at>.

2 files changed, 14 insertions, 1 deletions

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