Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 88:821dec489c24 r20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0
author cvs
date Mon, 13 Aug 2007 09:09:59 +0200
parents 364816949b59
children 0d2f883870bc
comparison
equal deleted inserted replaced
87:7df2982f5c17 88:821dec489c24
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/26 04:24:41 3 ;; Created: 1997/01/29 14:32:36
4 ;; Version: 1.47 4 ;; Version: 1.48
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/26 04:24:41|1.47|Location Undetermined 10 ;;; 1997/01/29 14:32:36|1.48|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.
595 (let ((old-asynch url-be-asynchronous)) 595 (let ((old-asynch url-be-asynchronous))
596 (setq-default url-be-asynchronous nil) 596 (setq-default url-be-asynchronous nil)
597 (let ((buf (current-buffer)) 597 (let ((buf (current-buffer))
598 (url-working-buffer (cdr (url-retrieve url)))) 598 (url-working-buffer (cdr (url-retrieve url))))
599 (setq-default url-be-asynchronous old-asynch) 599 (setq-default url-be-asynchronous old-asynch)
600 (set-buffer url-working-buffer)
601 (url-uncompress)
600 (set-buffer buf) 602 (set-buffer buf)
601 (insert-buffer url-working-buffer) 603 (insert-buffer url-working-buffer)
602 (setq buffer-file-name url) 604 (setq buffer-file-name url)
603 (save-excursion 605 (save-excursion
604 (set-buffer url-working-buffer) 606 (set-buffer url-working-buffer)