From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Oct 1993 17:12:54 +0000 (+0000)
Subject: (rlogin, rlogin-mode): Use comint-file-name-prefix,
X-Git-Tag: emacs-19.34~10977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3417b13050516fb5adf8f54355999232915c1b5;p=emacs.git

(rlogin, rlogin-mode): Use comint-file-name-prefix,
not comint-filename-prefix.
---

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))