Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents b980b6286996
children 318232e2a3f0
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
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/04/21 22:07:55 3 ;; Created: 1997/04/24 20:22:16
4 ;; Version: 1.55 4 ;; Version: 1.57
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.
36 (defmacro defgroup (&rest args) 36 (defmacro defgroup (&rest args)
37 nil) 37 nil)
38 (defmacro defcustom (var value doc &rest args) 38 (defmacro defcustom (var value doc &rest args)
39 (` (defvar (, var) (, value) (, doc)))))) 39 (` (defvar (, var) (, value) (, doc))))))
40 40
41 (defconst url-version (let ((x "p3.0.84")) 41 (defconst url-version (let ((x "p3.0.85"))
42 (if (string-match "State: \\([^ \t\n]+\\)" x) 42 (if (string-match "State: \\([^ \t\n]+\\)" x)
43 (substring x (match-beginning 1) (match-end 1)) 43 (substring x (match-beginning 1) (match-end 1))
44 x)) 44 x))
45 "Version # of URL package.") 45 "Version # of URL package.")
46 46
243 (".uue" . "x-uuencoded") 243 (".uue" . "x-uuencoded")
244 (".hqx" . "x-hqx") 244 (".hqx" . "x-hqx")
245 (".Z" . "x-compress")) 245 (".Z" . "x-compress"))
246 "*An assoc list of file extensions and the appropriate 246 "*An assoc list of file extensions and the appropriate
247 content-transfer-encodings for each." 247 content-transfer-encodings for each."
248 :type '(repeat (cons (string :tag "Extension") (string :tag "Encoding"))) 248 :type '(repeat (cons :format "%v"
249 (string :tag "Extension")
250 (string :tag "Encoding")))
249 :group 'url-mime) 251 :group 'url-mime)
250 252
251 (defcustom url-mail-command 'url-mail 253 (defcustom url-mail-command 'url-mail
252 "*This function will be called whenever url needs to send mail. 254 "*This function will be called whenever url needs to send mail.
253 It should enter a mail-mode-like buffer in the current window. 255 It should enter a mail-mode-like buffer in the current window.
258 260
259 (defcustom url-proxy-services nil 261 (defcustom url-proxy-services nil
260 "*An assoc list of access types and servers that gateway them. 262 "*An assoc list of access types and servers that gateway them.
261 Looks like ((\"http\" . \"hostname:portnumber\") ....) This is set up 263 Looks like ((\"http\" . \"hostname:portnumber\") ....) This is set up
262 from the ACCESS_proxy environment variables in url-do-setup." 264 from the ACCESS_proxy environment variables in url-do-setup."
263 :type '(repeat (cons (string :tag "Protocol") 265 :type '(repeat (cons :format "%v"
266 (string :tag "Protocol")
264 (string :tag "Proxy"))) 267 (string :tag "Proxy")))
265 :group 'url) 268 :group 'url)
266 269
267 (defcustom url-global-history-file nil 270 (defcustom url-global-history-file nil
268 "*The global history file used by both Mosaic/X and the url package. 271 "*The global history file used by both Mosaic/X and the url package.