diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-06-05 17:35:21 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-06-05 17:35:21 +0000 |
commit | 2057ea25ac447d48a5d969539a81a11f9ed94fea (patch) | |
tree | a06ffc9704aa5ec6e4a96493a3c1d06b50939f8f /lisp/ange-ftp.el | |
parent | aa3a10280a9632583849618dcac1ac1dd1433857 (diff) | |
download | emacs-2057ea25ac447d48a5d969539a81a11f9ed94fea.tar.gz |
(internal-ange-ftp-mode): Renamed from ange-ftp-mode. Callers changed.
Diffstat (limited to 'lisp/ange-ftp.el')
-rw-r--r-- | lisp/ange-ftp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index af20e6df8c3..bbc7c2c0cef 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.21 $") +(defconst ange-ftp-version "$Revision: 1.22 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1762,17 +1762,17 @@ on the gateway machine to do the ftp instead." (process-kill-without-query proc) (save-excursion (set-buffer (process-buffer proc)) - (ange-ftp-mode)) + (internal-ange-ftp-mode)) (set-process-sentinel proc (function ange-ftp-process-sentinel)) (set-process-filter proc (function ange-ftp-process-filter)) (accept-process-output proc) ;wait for ftp startup message proc)) -(defun ange-ftp-mode () +(defun internal-ange-ftp-mode () (interactive) (comint-mode) - (setq major-mode 'ange-ftp-mode) - (setq mode-name "Ange-ftp") + (setq major-mode 'internal-ange-ftp-mode) + (setq mode-name "Internal Ange-ftp") (let ((proc (get-buffer-process (current-buffer)))) (goto-char (point-max)) (set-marker (process-mark proc) (point)) |