Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 6608ceec7cf8
children 5a88923fcbfe
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
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/24 20:22:16 3 ;; Created: 1997/05/09 06:21:56
4 ;; Version: 1.57 4 ;; Version: 1.58
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.85")) 41 (defconst url-version (let ((x "p3.0.86"))
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