Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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/03/07 16:46:48 3 ;; Created: 1997/03/14 06:51:57
4 ;; Version: 1.31 4 ;; Version: 1.35
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.
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA. 26 ;;; Boston, MA 02111-1307, USA.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 (defconst url-version (let ((x "p3.0.65")) 29 (defconst url-version (let ((x "p3.0.68"))
30 (if (string-match "State: \\([^ \t\n]+\\)" x) 30 (if (string-match "State: \\([^ \t\n]+\\)" x)
31 (substring x (match-beginning 1) (match-end 1)) 31 (substring x (match-beginning 1) (match-end 1))
32 x)) 32 x))
33 "Version # of URL package.") 33 "Version # of URL package.")
34 34
311 311
312 (defvar url-max-password-attempts 5 312 (defvar url-max-password-attempts 5
313 "*Maximum number of times a password will be prompted for when a 313 "*Maximum number of times a password will be prompted for when a
314 protected document is denied by the server.") 314 protected document is denied by the server.")
315 315
316 (defvar url-temporary-directory "/tmp" "*Where temporary files go.") 316 (defvar url-temporary-directory (or (getenv "TMPDIR") "/tmp")
317 "*Where temporary files go.")
317 318
318 (defvar url-show-status t 319 (defvar url-show-status t
319 "*Whether to show a running total of bytes transferred. Can cause a 320 "*Whether to show a running total of bytes transferred. Can cause a
320 large hit if using a remote X display over a slow link, or a terminal 321 large hit if using a remote X display over a slow link, or a terminal
321 with a slow modem.") 322 with a slow modem.")