[Emacs-diffs] /srv/bzr/emacs/trunk r111264: * net/tramp.el (tramp-error-with-buffer): Give a hint to use

[Michael Albinus]

------------------------------------------------------------
revno: 111264
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Tue 2012-12-18 14:37:06 +0100
message:
  * net/tramp.el (tramp-error-with-buffer): Give a hint to use
  `tramp-cleanup-this-connection', when the process has died.
  (Bug#13151)
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-17 19:43:55 +0000
+++ b/lisp/ChangeLog    2012-12-18 13:37:06 +0000
@@ -1,3 +1,9 @@
+2012-12-18  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * icomplete.el (icomplete-completions): Also use … to truncate prefix.

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2012-12-17 14:38:07 +0000
+++ b/lisp/net/tramp.el 2012-12-18 13:37:06 +0000
@@ -1455,6 +1455,11 @@
           (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)