Mercurial > hg > xemacs-beta
comparison lisp/version.el @ 282:c42ec1d1cded r21-0b39
Import from CVS: tag r21-0b39
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:33:18 +0200 |
parents | 41f2f0e326e9 |
children | 8bec6624d99b |
comparison
equal
deleted
inserted
replaced
281:090b52736db2 | 282:c42ec1d1cded |
---|---|
38 (defconst emacs-version | 38 (defconst emacs-version |
39 (purecopy | 39 (purecopy |
40 (format "%d.%d %s%s%s" | 40 (format "%d.%d %s%s%s" |
41 emacs-major-version | 41 emacs-major-version |
42 emacs-minor-version | 42 emacs-minor-version |
43 (if (and xemacs-codename (not (featurep 'infodock))) | 43 (if xemacs-codename |
44 (concat "\"" xemacs-codename "\"") | 44 (concat "\"" xemacs-codename "\"") |
45 "") | 45 "") |
46 (concat " XEmacs " | 46 " XEmacs Lucid" |
47 ;; (if (not (featurep 'infodock)) | |
48 " Lucid" | |
49 ;; "")) | |
50 ) | |
51 (if xemacs-betaname | 47 (if xemacs-betaname |
52 (concat " " xemacs-betaname) | 48 (concat " " xemacs-betaname) |
53 ""))) | 49 ""))) |
54 "Version numbers of this version of XEmacs.") | 50 "Version numbers of this version of XEmacs.") |
55 | 51 |