Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool 1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/16 14:13:05 3 ;; Created: 1997/02/08 05:29:30
4 ;; Version: 1.24 4 ;; Version: 1.26
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
271 "*If non-nil, multiple queries are possible through ` *URL-<i>*' buffers") 271 "*If non-nil, multiple queries are possible through ` *URL-<i>*' buffers")
272 (defvar url-default-working-buffer " *URL*" " The default buffer to do all of the processing in.") 272 (defvar url-default-working-buffer " *URL*" " The default buffer to do all of the processing in.")
273 (defvar url-working-buffer url-default-working-buffer " The buffer to do all of the processing in. 273 (defvar url-working-buffer url-default-working-buffer " The buffer to do all of the processing in.
274 (It defaults to `url-default-working-buffer' and is bound to ` *URL-<i>*' buffers 274 (It defaults to `url-default-working-buffer' and is bound to ` *URL-<i>*' buffers
275 when used for multiple requests, cf. `url-multiple-p')") 275 when used for multiple requests, cf. `url-multiple-p')")
276 (defvar url-current-annotation nil "URL of document we are annotating...")
277 (defvar url-current-referer nil "Referer of this page.") 276 (defvar url-current-referer nil "Referer of this page.")
278 (defvar url-current-content-length nil "Current content length.") 277 (defvar url-current-content-length nil "Current content length.")
279 (defvar url-current-file nil "Filename of current document.") 278 (defvar url-current-file nil "Filename of current document.")
280 (defvar url-current-isindex nil "Is the current document a searchable index?") 279 (defvar url-current-isindex nil "Is the current document a searchable index?")
281 (defvar url-current-mime-encoding nil "MIME encoding of current document.") 280 (defvar url-current-mime-encoding nil "MIME encoding of current document.")
425 "*What function to use for asking yes or no functions. Possible 424 "*What function to use for asking yes or no functions. Possible
426 values are 'yes-or-no-p or 'y-or-n-p, or any function that takes a 425 values are 'yes-or-no-p or 'y-or-n-p, or any function that takes a
427 single argument (the prompt), and returns t only if a positive answer 426 single argument (the prompt), and returns t only if a positive answer
428 is gotten.") 427 is gotten.")
429 428
430 (defvar url-connection-retries 5
431 "*# of times to try for a connection before bailing.
432 If for some reason url-open-stream cannot make a connection to a host
433 right away, it will sit for 1 second, then try again, up to this many
434 tries.")
435
436 (defvar url-find-this-link nil "Link to go to within a document.") 429 (defvar url-find-this-link nil "Link to go to within a document.")
437 430
438 (defvar url-gateway-method 'native 431 (defvar url-gateway-method 'native
439 "*The type of gateway support to use. 432 "*The type of gateway support to use.
440 Should be a symbol specifying how we are to get a connection off of the 433 Should be a symbol specifying how we are to get a connection off of the