From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 3 Feb 2018 10:08:33 +0000 (+0100)
Subject: Fix Bug#30324
X-Git-Tag: emacs-26.1-rc1~262
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e23de39e22ccdf594b0ee84959f6df9d01af25a2;p=emacs.git

Fix Bug#30324

* lisp/net/rlogin.el (rlogin, rlogin-directory-tracking-mode):
Adapt to changed remote file name syntax.  (Bug#30324)
---

diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index 646adef2f0a..3bfc4d7f356 100644
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -219,7 +219,7 @@ variable."
                ;; function, to avoid a gratuitous resync check; the default
                ;; should be the user's home directory, be it local or remote.
                (setq comint-file-name-prefix
-                     (concat "/" rlogin-remote-user "@" rlogin-host ":"))
+                     (concat "/-:" rlogin-remote-user "@" rlogin-host ":"))
                (cd-absolute comint-file-name-prefix))
               ((null rlogin-directory-tracking-mode))
               (t
@@ -253,7 +253,7 @@ local one share the same directories (e.g. through NFS)."
     (setq rlogin-directory-tracking-mode t)
     (setq shell-dirtrackp t)
     (setq comint-file-name-prefix
-          (concat "/" rlogin-remote-user "@" rlogin-host ":")))
+          (concat "/-:" rlogin-remote-user "@" rlogin-host ":")))
    ((< prefix 0)
     (setq rlogin-directory-tracking-mode nil)
     (setq shell-dirtrackp nil))