[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 e23de39: Fix Bug#30324
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-26 e23de39: Fix Bug#30324 |
Date: |
Sat, 3 Feb 2018 05:08:42 -0500 (EST) |
branch: emacs-26
commit e23de39e22ccdf594b0ee84959f6df9d01af25a2
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
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 646adef..3bfc4d7 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 e23de39: Fix Bug#30324,
Michael Albinus <=