Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 0132846995bd
children b405438285a2
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
38 "Non-nil when this is a test (beta) version of XEmacs. 38 "Non-nil when this is a test (beta) version of XEmacs.
39 Warning, this variable did not exist in XEmacs versions prior to 20.3") 39 Warning, this variable did not exist in XEmacs versions prior to 20.3")
40 40
41 (defconst emacs-version 41 (defconst emacs-version
42 (purecopy 42 (purecopy
43 (format "%d.%d \"%s\"%s%s" 43 (format "%d.%d %s%s%s"
44 emacs-major-version 44 emacs-major-version
45 emacs-minor-version 45 emacs-minor-version
46 xemacs-codename 46 (if xemacs-codename
47 " XEmacs Lucid" 47 (concat "\"" xemacs-codename "\"")
48 "")
49 (concat " XEmacs "
50 (if (not (featurep 'infodock))
51 " Lucid"
52 ""))
48 (if xemacs-betaname 53 (if xemacs-betaname
49 (concat " " xemacs-betaname) 54 (concat " " xemacs-betaname)
50 ""))) 55 "")))
51 "Version numbers of this version of XEmacs.") 56 "Version numbers of this version of XEmacs.")
52 57
81 Don't use this function in programs to choose actions according 86 Don't use this function in programs to choose actions according
82 to the system configuration; look at `system-configuration' instead." 87 to the system configuration; look at `system-configuration' instead."
83 (interactive "p") 88 (interactive "p")
84 (let ((version-string 89 (let ((version-string
85 (format 90 (format
86 "XEmacs %s [Lucid] (%s%s) of %s %s on %s" 91 "XEmacs %s %s(%s%s) of %s %s on %s"
87 (substring emacs-version 0 (string-match " XEmacs" emacs-version)) 92 (substring emacs-version 0 (string-match " XEmacs" emacs-version))
93 (if (not (featurep 'infodock))
94 "[Lucid] "
95 "")
88 system-configuration 96 system-configuration
89 (cond ((or (and (fboundp 'featurep) 97 (cond ((or (and (fboundp 'featurep)
90 (featurep 'mule)) 98 (featurep 'mule))
91 (memq 'mule features)) ", Mule") 99 (memq 'mule features)) ", Mule")
92 (t "")) 100 (t ""))