Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 6a378aca36af
children 821dec489c24
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
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/01/19 01:12:24 3 ;; Created: 1997/01/26 04:24:41
4 ;; Version: 1.46 4 ;; Version: 1.47
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/01/19 01:12:24|1.46|Location Undetermined 10 ;;; 1997/01/26 04:24:41|1.47|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.
1337 If DEFAULT is nil or missing, the current buffer's URL is used. 1337 If DEFAULT is nil or missing, the current buffer's URL is used.
1338 Path components that are `.' are removed, and 1338 Path components that are `.' are removed, and
1339 path components followed by `..' are removed, along with the `..' itself." 1339 path components followed by `..' are removed, along with the `..' itself."
1340 (if url 1340 (if url
1341 (setq url (mapconcat (function (lambda (x) 1341 (setq url (mapconcat (function (lambda (x)
1342 (if (memq x '(?\n ?\r)) 1342 (if (memq x '(? ?\n ?\r))
1343 "" 1343 ""
1344 (char-to-string x)))) 1344 (char-to-string x))))
1345 (url-strip-leading-spaces 1345 (url-strip-leading-spaces
1346 (url-eat-trailing-space url)) ""))) 1346 (url-eat-trailing-space url)) "")))
1347 (cond 1347 (cond