[Emacs-diffs] trunk r115121: * net/tramp-cmds.el (tramp-cleanup-connection): Clean up

[Michael Albinus]

------------------------------------------------------------
revno: 115121
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Sat 2013-11-16 12:37:45 +0100
message:
  * net/tramp-cmds.el (tramp-cleanup-connection): Clean up
  `tramp-current-connection'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-cmds.el         
trampcmds.el-20091113204419-o5vbwnq5f7feedwu-7524

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-15 18:09:10 +0000
+++ b/lisp/ChangeLog    2013-11-16 11:37:45 +0000
@@ -1,3 +1,8 @@
+2013-11-16  Michael Albinus  <address@hidden>
+
+       * net/tramp-cmds.el (tramp-cleanup-connection): Clean up
+       `tramp-current-connection'.
+
 2013-11-15  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-font-lock-keywords): End regexp for

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2013-10-17 19:39:22 +0000
+++ b/lisp/net/tramp-cmds.el    2013-11-16 11:37:45 +0000
@@ -85,6 +85,10 @@
       ;; 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))