Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
1 ;;; url.el --- Uniform Resource Locator retrieval tool 1 ;;; url.el --- Uniform Resource Locator retrieval tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/07/14 05:15:29 3 ;; Created: 1997/09/05 15:43:50
4 ;; Version: 1.80 4 ;; Version: 1.81
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;; LCD Archive Entry: 7 ;;; LCD Archive Entry:
8 ;;; url|William M. Perry|wmperry@cs.indiana.edu| 8 ;;; url|William M. Perry|wmperry@cs.indiana.edu|
9 ;;; Functions for retrieving/manipulating URLs| 9 ;;; Functions for retrieving/manipulating URLs|
10 ;;; 1997/07/14 05:15:29|1.80|Location Undetermined 10 ;;; 1997/09/05 15:43:50|1.81|Location Undetermined
11 ;;; 11 ;;;
12 12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
802 ((eq system-type 'Apple-Macintosh) "Macintosh") 802 ((eq system-type 'Apple-Macintosh) "Macintosh")
803 ((eq system-type 'next-mach) "NeXT") 803 ((eq system-type 'next-mach) "NeXT")
804 ((eq system-type 'windows-nt) "Windows-NT; 32bit") 804 ((eq system-type 'windows-nt) "Windows-NT; 32bit")
805 ((eq system-type 'ms-windows) "Windows; 16bit") 805 ((eq system-type 'ms-windows) "Windows; 16bit")
806 ((eq system-type 'ms-dos) "MS-DOS; 32bit") 806 ((eq system-type 'ms-dos) "MS-DOS; 32bit")
807 ((eq (device-type) 'win32) "Windows; 32bit") 807 ((memq (device-type) '(win32 w32)) "Windows; 32bit")
808 ((eq (device-type) 'pm) "OS/2; 32bit") 808 ((eq (device-type) 'pm) "OS/2; 32bit")
809 (t 809 (t
810 (case (device-type) 810 (case (device-type)
811 (x "X11") 811 (x "X11")
812 (ns "OpenStep") 812 (ns "OpenStep")