Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8d2a9b52c682
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
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/03/18 01:08:13 3 ;; Created: 1997/03/20 15:45:21
4 ;; Version: 1.65 4 ;; Version: 1.66
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/03/18 01:08:13|1.65|Location Undetermined 10 ;;; 1997/03/20 15:45:21|1.66|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.
1335 (url-sentinel proc string)))) 1335 (url-sentinel proc string))))
1336 string) 1336 string)
1337 1337
1338 (defun url-default-callback (buf) 1338 (defun url-default-callback (buf)
1339 (url-download-minor-mode nil) 1339 (url-download-minor-mode nil)
1340 (url-store-in-cache) 1340 (url-store-in-cache buf)
1341 (cond 1341 (cond
1342 ((save-excursion (set-buffer buf) 1342 ((save-excursion (set-buffer buf)
1343 (and url-current-callback-func 1343 (and url-current-callback-func
1344 (fboundp url-current-callback-func))) 1344 (fboundp url-current-callback-func)))
1345 (save-excursion 1345 (save-excursion