diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2008-07-24 21:46:20 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2008-07-24 21:46:20 +0000 |
| commit | 38d63e6af4aa0be39c08f9ca086a21c930840e26 (patch) | |
| tree | 69ea0b93b41d9d7a639e2724b5186d3baa88365d /lisp | |
| parent | 24008bc4f3ed8e6068e90e184b2dd7dccf83ac5b (diff) | |
| download | emacs-38d63e6af4aa0be39c08f9ca086a21c930840e26.tar.gz | |
* net/tramp.el (tramp-handle-start-file-process): Make NAME a unique
process name. Reported by Markus Triska <markus.triska@gmx.at>.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 8 |
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) |