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")