Mercurial > hg > xemacs-beta
comparison lisp/version.el @ 120:cca96a509cfe r20-1b12
Import from CVS: tag r20-1b12
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:25:29 +0200 |
parents | 7d55a9ba150c |
children | d2f30a177268 |
comparison
equal
deleted
inserted
replaced
119:d101af7320b8 | 120:cca96a509cfe |
---|---|
23 ;;; Code: | 23 ;;; Code: |
24 | 24 |
25 (defconst emacs-version "20.1" | 25 (defconst emacs-version "20.1" |
26 "Version numbers of this version of Emacs.") | 26 "Version numbers of this version of Emacs.") |
27 | 27 |
28 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta11)"))) | 28 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta12)"))) |
29 | 29 |
30 (defconst emacs-major-version | 30 (defconst emacs-major-version |
31 (progn (or (string-match "^[0-9]+" emacs-version) | 31 (progn (or (string-match "^[0-9]+" emacs-version) |
32 (error "emacs-version unparsable")) | 32 (error "emacs-version unparsable")) |
33 (string-to-int (match-string 0 emacs-version))) | 33 (string-to-int (match-string 0 emacs-version))) |