diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-10-22 17:12:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-10-22 17:12:54 +0000 |
| commit | 0c345a5a642928e8a3b59f4d115c3209e5c35cd7 (patch) | |
| tree | 390e6b36dcdb5f5a76532493cf897c9b11b76385 /lisp/rlogin.el | |
| parent | 4a8577c14ffc0f69a3919eba8b2baf66b720d773 (diff) | |
| download | emacs-0c345a5a642928e8a3b59f4d115c3209e5c35cd7.tar.gz | |
(rlogin, rlogin-mode): Use comint-file-name-prefix,
not comint-filename-prefix.
Diffstat (limited to 'lisp/rlogin.el')
| -rw-r--r-- | lisp/rlogin.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/rlogin.el b/lisp/rlogin.el index 8e5ecc5645d..cc8dd9c0bab 100644 --- a/lisp/rlogin.el +++ b/lisp/rlogin.el @@ -23,7 +23,7 @@ ;;; Commentary: ;; Support for remote logins using `rlogin'. -;; $Id$ +;; $Id: rlogin.el,v 1.12 1993/10/18 07:05:11 friedman Exp rms $ ;;; Todo: @@ -127,7 +127,7 @@ the rlogin when starting. They are added after any arguments given in ARGS." (set-process-filter proc 'rlogin-filter) ;; Set the prefix for filename completion and directory tracking ;; to find the remote machine's files by ftp. - (setq comint-filename-prefix (concat "/" (car args) ":")) + (setq comint-file-name-prefix (concat "/" (car args) ":")) (and rlogin-initially-track-cwd ;; Presume the user will start in his remote home directory. ;; If this is wrong, M-x dirs will fix it. @@ -166,7 +166,7 @@ If `rlogin-mode-hook' is set, run it." (setq mode-name "rlogin") (use-local-map rlogin-mode-map) (setq shell-dirtrackp rlogin-initially-track-cwd) - (make-local-variable 'comint-filename-prefix) + (make-local-variable 'comint-file-name-prefix) (run-hooks 'rlogin-mode-hook)) |