diff options
| author | Michael Albinus | 2015-02-03 10:32:00 +0100 |
|---|---|---|
| committer | Michael Albinus | 2015-02-03 10:32:00 +0100 |
| commit | d6fee01589a0f10b3d761bd9bdf582730c92a171 (patch) | |
| tree | a9eded95eb0b6797090036f265f061543131cc80 /lisp | |
| parent | 27e11c01859e0d60c4c8502421a5d363d0153dfb (diff) | |
| download | emacs-d6fee01589a0f10b3d761bd9bdf582730c92a171.tar.gz emacs-d6fee01589a0f10b3d761bd9bdf582730c92a171.zip | |
Tramp: Don't use a tempfile for ControlPath.
Fixes: debbugs:19702
* net/tramp.el (tramp-ssh-controlmaster-options): Don't use a
tempfile for ControlPath.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ef533e1aa6..a61c2403dd3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-02-03 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * net/tramp.el (tramp-ssh-controlmaster-options): Don't use a | ||
| 4 | tempfile for ControlPath. (Bug#19702) | ||
| 5 | |||
| 1 | 2015-02-02 Michael Albinus <michael.albinus@gmx.de> | 6 | 2015-02-02 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 7 | ||
| 3 | * net/tramp.el (tramp-ssh-controlmaster-options): Use "%C" for | 8 | * net/tramp.el (tramp-ssh-controlmaster-options): Use "%C" for |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index c442806b90f..b746bca5804 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -323,8 +323,9 @@ useful only in combination with `tramp-default-proxies-alist'.") | |||
| 323 | "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") | 323 | "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") |
| 324 | (goto-char (point-min)) | 324 | (goto-char (point-min)) |
| 325 | (if (search-forward-regexp "unknown.+key" nil t) | 325 | (if (search-forward-regexp "unknown.+key" nil t) |
| 326 | (setq result (concat result " -o ControlPath=%t.%%r@%%h:%%p")) | 326 | (setq result |
| 327 | (setq result (concat result " -o ControlPath=%t.%%C")))) | 327 | (concat result " -o ControlPath=tramp.%%r@%%h:%%p")) |
| 328 | (setq result (concat result " -o ControlPath=tramp.%%C")))) | ||
| 328 | (with-temp-buffer | 329 | (with-temp-buffer |
| 329 | (call-process "ssh" nil t nil "-o" "ControlPersist") | 330 | (call-process "ssh" nil t nil "-o" "ControlPersist") |
| 330 | (goto-char (point-min)) | 331 | (goto-char (point-min)) |