Mercurial > emacs
changeset 3230:103f34320cb5
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 May 1993 04:30:10 +0000 |
| parents | f2b1d5cc9337 |
| children | fb322590dda0 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)