Mercurial > hg > xemacs-beta

comparison lisp/w3/mm.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 34a5b81f86ba
children 5a88923fcbfe
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
92 ;;; 92 ;;;
93 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 93 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
94 ;;; Variables, etc 94 ;;; Variables, etc
95 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 95 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96 (eval-and-compile 96 (eval-and-compile
97 (require 'cl)) 97 (require 'cl)
98 (require 'devices))
98 99
99 (defconst mm-version (let ((x "1.96")) 100 (defconst mm-version (let ((x "1.96"))
100 (if (string-match "Revision: \\([^ \t\n]+\\)" x) 101 (if (string-match "Revision: \\([^ \t\n]+\\)" x)
101 (substring x (match-beginning 1) (match-end 1)) 102 (substring x (match-beginning 1) (match-end 1))
102 x)) 103 x))