From f3417b13050516fb5adf8f54355999232915c1b5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Oct 1993 17:12:54 +0000 Subject: [PATCH] (rlogin, rlogin-mode): Use comint-file-name-prefix, not comint-filename-prefix. --- lisp/rlogin.el | 6 +++--- 1 file 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)) -- 2.39.5