pop-to-shell - ensure the cleanup message is seen

... since i'm not even sure it ever gets used, sigh.

diff --git a/poptoshell.el b/poptoshell.el
index 51c97142105a149a1bdfacc53e7fe05e7c8c3b7d..8138ebc763a4f5f95b4831dc923fc20b794ccf49 100644 (file)
--- a/poptoshell.el
+++ b/poptoshell.el
@@ -356,7 +356,7 @@ on empty input."
     (when (and (file-remote-p default-directory)
              (not (comint-check-proc (current-buffer))))
       (message "(Re)connection failed, doing a cleanup then retry...")
-      (sit-for 0)
+      (sleep-for 0)
       (tramp-cleanup-this-connection)
       (shell-mode))))