Mercurial > hg > xemacs-beta
comparison lisp/w3/url-vars.el @ 189:489f57a838ef r20-3b21
Import from CVS: tag r20-3b21
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:57:07 +0200 |
| parents | 3d6bfa290dbd |
| children |
comparison
equal
deleted
inserted
replaced
| 188:e29a8e7498d9 | 189:489f57a838ef |
|---|---|
| 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.103")) | 41 (defconst url-version (let ((x "p3.0.104")) |
| 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 |