Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
32 32
33 (require 'w3-cus) ; Grab everything that is customized 33 (require 'w3-cus) ; Grab everything that is customized
34 (require 'wid-edit) ; For `widget-keymap' 34 (require 'wid-edit) ; For `widget-keymap'
35 35
36 (defconst w3-version-number 36 (defconst w3-version-number
37 (let ((x "p3.0.103")) 37 (let ((x "p3.0.104"))
38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
39 (setq x (substring x (match-beginning 1) (match-end 1))) 39 (setq x (substring x (match-beginning 1) (match-end 1)))
40 (setq x (substring x 1))) 40 (setq x (substring x 1)))
41 (mapconcat 41 (mapconcat
42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))