diff options
| author | Glenn Morris | 2009-08-22 21:59:40 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-08-22 21:59:40 +0000 |
| commit | a337468045409bc0d9179f4cdda010dbab2a5989 (patch) | |
| tree | ce85d6ca33e474a2c4acb3e14160c8ff9a9bb9e3 /lisp/net | |
| parent | 3f12e3f4bf054763b6507577e72a55a02302ace7 (diff) | |
| download | emacs-a337468045409bc0d9179f4cdda010dbab2a5989.tar.gz emacs-a337468045409bc0d9179f4cdda010dbab2a5989.zip | |
Remove code for defunct system-types emx, macos, mswindows,
unisoft-unix, vax-vms, win32, w32.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 2c20e8c94d8..8499a896db6 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; ange-ftp.el --- transparent FTP support for GNU Emacs | 1 | ;;; ange-ftp.el --- transparent FTP support for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, | 3 | ;; Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, |
| 4 | ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 | ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
| 5 | ;; Free Software Foundation, Inc. | ||
| 5 | 6 | ||
| 6 | ;; Author: Andy Norman (ange@hplb.hpl.hp.com) | 7 | ;; Author: Andy Norman (ange@hplb.hpl.hp.com) |
| 7 | ;; Maintainer: FSF | 8 | ;; Maintainer: FSF |
| @@ -3220,7 +3221,7 @@ system TYPE.") | |||
| 3220 | ;; regardless. Maybe a system-type to host-type lookup? | 3221 | ;; regardless. Maybe a system-type to host-type lookup? |
| 3221 | (binary (or (ange-ftp-binary-file filename) | 3222 | (binary (or (ange-ftp-binary-file filename) |
| 3222 | (and (not (memq system-type | 3223 | (and (not (memq system-type |
| 3223 | '(ms-dos windows-nt macos vax-vms))) | 3224 | '(ms-dos windows-nt))) |
| 3224 | (memq (ange-ftp-host-type host user) | 3225 | (memq (ange-ftp-host-type host user) |
| 3225 | '(unix dumb-unix))))) | 3226 | '(unix dumb-unix))))) |
| 3226 | (cmd (if append 'append 'put)) | 3227 | (cmd (if append 'append 'put)) |