Mercurial > hg > xemacs-beta
diff lisp/w3/url-vars.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:13:56 +0200 |
parents | 0293115a14e9 |
children | a145efe76779 |
line wrap: on
line diff
--- a/lisp/w3/url-vars.el Mon Aug 13 09:12:43 2007 +0200 +++ b/lisp/w3/url-vars.el Mon Aug 13 09:13:56 2007 +0200 @@ -1,7 +1,7 @@ ;;; url-vars.el --- Variables for Uniform Resource Locator tool ;; Author: wmperry -;; Created: 1997/01/16 14:13:05 -;; Version: 1.24 +;; Created: 1997/02/10 16:15:19 +;; Version: 1.27 ;; Keywords: comm, data, processes, hypermedia ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -273,7 +273,6 @@ (defvar url-working-buffer url-default-working-buffer " The buffer to do all of the processing in. (It defaults to `url-default-working-buffer' and is bound to ` *URL-<i>*' buffers when used for multiple requests, cf. `url-multiple-p')") -(defvar url-current-annotation nil "URL of document we are annotating...") (defvar url-current-referer nil "Referer of this page.") (defvar url-current-content-length nil "Current content length.") (defvar url-current-file nil "Filename of current document.") @@ -427,12 +426,6 @@ single argument (the prompt), and returns t only if a positive answer is gotten.") -(defvar url-connection-retries 5 - "*# of times to try for a connection before bailing. -If for some reason url-open-stream cannot make a connection to a host -right away, it will sit for 1 second, then try again, up to this many -tries.") - (defvar url-find-this-link nil "Link to go to within a document.") (defvar url-gateway-method 'native @@ -454,19 +447,6 @@ (defvar url-running-xemacs (string-match "XEmacs" emacs-version) "*In XEmacs?.") -(defvar url-use-hypertext-dired t - "*How to format directory listings. - -If value is non-nil, use directory-files to list them out and -transform them into a hypertext document, then pass it through the -parse like any other document. - -If value nil, just pass the directory off to dired using find-file.") - -(defconst monthabbrev-alist - '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) - ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))) - (defvar url-default-ports '(("http" . "80") ("gopher" . "70") ("telnet" . "23")