Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children 54cc21c15cbb
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
16 ;; You should have received a copy of the GNU General Public License 16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to the 17 ;; along with GNU Emacs; see the file COPYING. If not, write to the
18 ;; Free Software Foundation Inc., 59 Temple Place - Suite 330, 18 ;; Free Software Foundation Inc., 59 Temple Place - Suite 330,
19 ;; Boston, MA 02111-1307, USA. 19 ;; Boston, MA 02111-1307, USA.
20 20
21 ;;; Synched up with: FSF 19.30. 21 ;;; Synched up with: FSF 19.34.
22 22
23 ;;; Code: 23 ;;; Code:
24 24
25 (defconst emacs-version "20.0" 25 (defconst emacs-version "20.0"
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 (beta30)"))) 28 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta31)")))
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)))