# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738649810 0
# Node ID 103f34320cb5b10e9c306e3dcd3410d90398a555
# Parent  f2b1d5cc933765b7b484830b4752e768c9709184
(ange-ftp-dired-compress-file):
Use dired-compress-file, not dired-compress-filename.

(ange-ftp-set-buffer-mode): Do nothing unless
visited name is an ange ftp magic name.

diff -r f2b1d5cc9337 -r 103f34320cb5 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat May 29 03:47:48 1993 +0000
+++ b/lisp/ange-ftp.el	Sat May 29 04:30:10 1993 +0000
@@ -859,7 +859,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.17 $")
+(defconst ange-ftp-version "$Revision: 1.18 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -1326,13 +1326,12 @@
   (signal 'ftp-error (list (format "FTP Error: %s" msg))))
 
 (defun ange-ftp-set-buffer-mode ()
-  "Set the correct modes for the current buffer if it is visiting a remote
-file."
-  (make-local-variable 'make-backup-files)
-  (setq make-backup-files ange-ftp-make-backup-files)
+  "Set correct modes for the current buffer if visiting a remote file."
   (if (and (stringp buffer-file-name)
 	   (ange-ftp-ftp-name buffer-file-name))
       (progn
+	(make-local-variable 'make-backup-files)
+	(setq make-backup-files ange-ftp-make-backup-files)
 	(auto-save-mode ange-ftp-auto-save))))
 
 (defun ange-ftp-kill-ftp-process (buffer)
@@ -3659,7 +3658,7 @@
 	      (ange-ftp-compress name newfile)
 	    (ange-ftp-uncompress name newfile)))
       (let (file-name-handler-alist)
-	(dired-compress-filename name)))))
+	(dired-compress-file name)))))
 
 ;; Copy FILE to this machine, compress it, and copy out to NFILE.
 (defun ange-ftp-compress (file nfile)