From e23de39e22ccdf594b0ee84959f6df9d01af25a2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 3 Feb 2018 11:08:33 +0100 Subject: [PATCH] Fix Bug#30324 * lisp/net/rlogin.el (rlogin, rlogin-directory-tracking-mode): Adapt to changed remote file name syntax. (Bug#30324) --- lisp/net/rlogin.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.2