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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4e89c4264f15354877eba0932055f0767f89065..79f680ec932c39d34f029f27ae397f19317ed708 100644 (file)
--- 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 b7792b0e90f03e63b02b59fc572ace5a387c9017..17cc5938042137f12e367eb6cad7edbf70ad1de1 100644 (file)
--- 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)