[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/07/24 21:45:46

Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -b -r1.205 -r1.206
--- tramp.el    23 Jul 2008 19:17:05 -0000      1.205
+++ tramp.el    24 Jul 2008 21:45:45 -0000      1.206
@@ -3677,11 +3677,17 @@
   "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)