Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents 6608ceec7cf8
children 1856695b1fa9
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
23 ;;; Code: 23 ;;; Code:
24 24
25 (defconst emacs-version "20.2" 25 (defconst emacs-version "20.2"
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 (beta3)"))) 28 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta4)")))
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)))
59 (let ((version-string 59 (let ((version-string
60 (format 60 (format
61 "XEmacs %s [Lucid] (%s%s) of %s %s on %s" 61 "XEmacs %s [Lucid] (%s%s) of %s %s on %s"
62 (substring emacs-version 0 (string-match " XEmacs" emacs-version)) 62 (substring emacs-version 0 (string-match " XEmacs" emacs-version))
63 system-configuration 63 system-configuration
64 (cond ((featurep 'mule) ", Mule") (t "")) 64 (cond ((or (and (fboundp 'featurep)
65 (featurep 'mule))
66 (memq 'mule features)) ", Mule")
67 (t ""))
65 (substring emacs-build-time 0 68 (substring emacs-build-time 0
66 (string-match " *[0-9]*:" emacs-build-time)) 69 (string-match " *[0-9]*:" emacs-build-time))
67 (substring emacs-build-time 70 (substring emacs-build-time
68 (string-match "[0-9]*$" emacs-build-time)) 71 (string-match "[0-9]*$" emacs-build-time))
69 emacs-build-system))) 72 emacs-build-system)))