Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents d2f30a177268
children 34a5b81f86ba
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
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/04/09 23:49:33 3 ;; Created: 1997/04/11 14:41:10
4 ;; Version: 1.73 4 ;; Version: 1.74
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/04/09 23:49:33|1.73|Location Undetermined 10 ;;; 1997/04/11 14:41:10|1.74|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.
1795 (url-decode-text))) 1795 (url-decode-text)))
1796 (save-excursion 1796 (save-excursion
1797 (set-buffer nntp-server-buffer) 1797 (set-buffer nntp-server-buffer)
1798 (buffer-string))) 1798 (buffer-string)))
1799 1799
1800 (defvar url-external-retrieval-program "www" 1800 (defcustom url-external-retrieval-program "www"
1801 "*Name of the external executable to run to retrieve URLs.") 1801 "*Name of the external executable to run to retrieve URLs."
1802 1802 :type 'string
1803 (defvar url-external-retrieval-args '("-source") 1803 :group 'url)
1804
1805 (defcustom url-external-retrieval-args '("-source")
1804 "*A list of arguments to pass to `url-external-retrieval-program' to 1806 "*A list of arguments to pass to `url-external-retrieval-program' to
1805 retrieve a URL by its HTML source.") 1807 retrieve a URL by its HTML source."
1808 :type '(repeat string)
1809 :group 'url)
1806 1810
1807 (defun url-retrieve-externally (url &optional no-cache) 1811 (defun url-retrieve-externally (url &optional no-cache)
1808 (let ((url-working-buffer (if (and url-multiple-p 1812 (let ((url-working-buffer (if (and url-multiple-p
1809 (string-equal url-working-buffer 1813 (string-equal url-working-buffer
1810 url-default-working-buffer)) 1814 url-default-working-buffer))