* net/tramp.el (tramp-error-with-buffer): Give a hint to use

`tramp-cleanup-this-connection', when the process has died.
(Bug#13151)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d05f2fcc26da56243f30609a9cfdb00866cd2aa..39fa4b2ef49afd29c7db64cde28efccc943a1028 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-18  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-error-with-buffer): Give a hint to use
+       `tramp-cleanup-this-connection', when the process has died.
+       (Bug#13151)
+
 2012-12-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * icomplete.el (icomplete-completions): Also use … to truncate prefix.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index a4be6eab41f65e12a12205c10767d68cc21b5d84..bc220a33b2a12d6389867e57eb1288dcaf3dfa8d 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1455,6 +1455,11 @@ an input event arrives.  The other arguments are passed to `tramp-error'."
           (or (and (bufferp buffer) buffer)
               (and (processp vec-or-proc) (process-buffer vec-or-proc))
               (tramp-get-connection-buffer vec-or-proc)))
+         (when (string-equal fmt-string "Process died")
+           (message
+            "%s\n    %s"
+            "Tramp failed to connect.  If this happens repeatedly, try"
+            "`M-x tramp-cleanup-this-connection'"))
          (sit-for 30))))))
 
 (defmacro with-parsed-tramp-file-name (filename var &rest body)