Mercurial > hg > xemacs-beta

comparison lisp/w3/url-cache.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents e04119814345
children 9b50b4588a93
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
1 ;;; url-cache.el --- Uniform Resource Locator retrieval tool 1 ;;; url-cache.el --- Uniform Resource Locator retrieval tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/09 21:09:36 3 ;; Created: 1997/04/03 21:04:08
4 ;; Version: 1.10 4 ;; Version: 1.11
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
148 (hostname (url-host urlobj)) 148 (hostname (url-host urlobj))
149 (host-components 149 (host-components
150 (cons 150 (cons
151 (user-real-login-name) 151 (user-real-login-name)
152 (cons (or protocol "file") 152 (cons (or protocol "file")
153 (split-string (or hostname "localhost") 153 (reverse (split-string (or hostname "localhost")
154 (eval-when-compile 154 (eval-when-compile
155 (regexp-quote ".")))))) 155 (regexp-quote ".")))))))
156 (fname (url-filename urlobj))) 156 (fname (url-filename urlobj)))
157 (if (and fname (/= (length fname) 0) (= (aref fname 0) ?/)) 157 (if (and fname (/= (length fname) 0) (= (aref fname 0) ?/))
158 (setq fname (substring fname 1 nil))) 158 (setq fname (substring fname 1 nil)))
159 (if fname 159 (if fname
160 (let ((slash nil)) 160 (let ((slash nil))