Mercurial > emacs
diff lisp/url/url-file.el @ 104551:dbd882f3da46
Remove code for defunct system-types Apple-Macintosh, emx, ms-windows,
next-mach.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 22 Aug 2009 21:53:34 +0000 |
parents | 074256e82966 |
children | d5da691bfe56 |
line wrap: on
line diff
--- a/lisp/url/url-file.el Sat Aug 22 21:46:56 2009 +0000 +++ b/lisp/url/url-file.el Sat Aug 22 21:53:34 2009 +0000 @@ -1,7 +1,7 @@ ;;; url-file.el --- File retrieval code -;; Copyright (C) 1996, 1997, 1998, 1999, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Keywords: comm, data, processes @@ -105,8 +105,7 @@ (file (url-unhex-string (url-filename url))) (filename (if (or user (not (url-file-host-is-local-p host))) (concat "/" (or user "anonymous") "@" site ":" file) - (if (and (memq system-type - '(emx ms-dos windows-nt ms-windows)) + (if (and (memq system-type '(ms-dos windows-nt)) (string-match "^/[a-zA-Z]:/" file)) (substring file 1) file)))