* net/tramp-cmds.el (tramp-cleanup-connection): Clean up

`tramp-current-connection'.

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aabdbd6b0fc..ce887ff3e11 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-16  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp-cmds.el (tramp-cleanup-connection): Clean up
+        `tramp-current-connection'.
+
 2013-11-15  Dmitry Gutov  <dgutov@yandex.ru>
 
         * progmodes/ruby-mode.el (ruby-font-lock-keywords): End regexp for
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index 2f3dfa4fd7a..35f23caa51a 100644
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -85,6 +85,10 @@ When called interactively, a Tramp connection has to be selected."
       ;; Nothing to do.
       (message "No Tramp connection found.")
 
+    ;; Cleanup `tramp-current-connection'.  Otherwise, we would be
+    ;; suppressed in the test suite.
+    (setq tramp-current-connection nil)
+
     ;; Flush password cache.
     (unless keep-password (tramp-clear-passwd vec))