masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-08 05:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix Bug#30324

Browse source 
* lisp/net/rlogin.el (rlogin, rlogin-directory-tracking-mode):
Adapt to changed remote file name syntax.  (Bug#30324)
This commit is contained in:
Michael Albinus 2018-02-03 11:08:33 +01:00
parent e1a9dc0af6
commit e23de39e22
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/rlogin.el
View file

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