Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 0293115a14e9
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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/10 16:15:19
4 ;; Version: 1.24 4 ;; Version: 1.27
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
452 ") 445 ")
453 446
454 (defvar url-running-xemacs (string-match "XEmacs" emacs-version) 447 (defvar url-running-xemacs (string-match "XEmacs" emacs-version)
455 "*In XEmacs?.") 448 "*In XEmacs?.")
456 449
457 (defvar url-use-hypertext-dired t
458 "*How to format directory listings.
459
460 If value is non-nil, use directory-files to list them out and
461 transform them into a hypertext document, then pass it through the
462 parse like any other document.
463
464 If value nil, just pass the directory off to dired using find-file.")
465
466 (defconst monthabbrev-alist
467 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6)
468 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
469
470 (defvar url-default-ports '(("http" . "80") 450 (defvar url-default-ports '(("http" . "80")
471 ("gopher" . "70") 451 ("gopher" . "70")
472 ("telnet" . "23") 452 ("telnet" . "23")
473 ("news" . "119") 453 ("news" . "119")
474 ("https" . "443") 454 ("https" . "443")