From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 24 Jul 2008 21:46:20 +0000 (+0000)
Subject: * net/tramp.el (tramp-handle-start-file-process): Make NAME a unique
X-Git-Tag: emacs-pretest-23.0.90~3907
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38d63e6af4aa0be39c08f9ca086a21c930840e26;p=emacs.git

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