diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-02-03 11:08:33 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-02-03 11:08:33 +0100 |
| commit | e23de39e22ccdf594b0ee84959f6df9d01af25a2 (patch) | |
| tree | a419b090d2583084fce8807edd5501ad2f8dccb5 /lisp/net | |
| parent | e1a9dc0af6ffb202ce1393b376d14d3c3897a243 (diff) | |
| download | emacs-e23de39e22ccdf594b0ee84959f6df9d01af25a2.tar.gz emacs-e23de39e22ccdf594b0ee84959f6df9d01af25a2.tar.bz2 emacs-e23de39e22ccdf594b0ee84959f6df9d01af25a2.zip | |
Fix Bug#30324
* lisp/net/rlogin.el (rlogin, rlogin-directory-tracking-mode):
Adapt to changed remote file name syntax. (Bug#30324)
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rlogin.el | 4 |
1 files 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)) |