Mercurial > hg > xemacs-beta
diff lisp/w3/url.el @ 88:821dec489c24 r20-0
Import from CVS: tag r20-0
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:09:59 +0200 |
| parents | 364816949b59 |
| children | 0d2f883870bc |
line wrap: on
line diff
--- a/lisp/w3/url.el Mon Aug 13 09:09:05 2007 +0200 +++ b/lisp/w3/url.el Mon Aug 13 09:09:59 2007 +0200 @@ -1,13 +1,13 @@ ;;; url.el --- Uniform Resource Locator retrieval tool ;; Author: wmperry -;; Created: 1997/01/26 04:24:41 -;; Version: 1.47 +;; Created: 1997/01/29 14:32:36 +;; Version: 1.48 ;; Keywords: comm, data, processes, hypermedia ;;; LCD Archive Entry: ;;; url|William M. Perry|wmperry@cs.indiana.edu| ;;; Functions for retrieving/manipulating URLs| -;;; 1997/01/26 04:24:41|1.47|Location Undetermined +;;; 1997/01/29 14:32:36|1.48|Location Undetermined ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -597,6 +597,8 @@ (let ((buf (current-buffer)) (url-working-buffer (cdr (url-retrieve url)))) (setq-default url-be-asynchronous old-asynch) + (set-buffer url-working-buffer) + (url-uncompress) (set-buffer buf) (insert-buffer url-working-buffer) (setq buffer-file-name url)