Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 239:41f2f0e326e9 r20-5b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b18
author cvs
date Mon, 13 Aug 2007 10:15:48 +0200
parents 41ff10fd062f
children c42ec1d1cded
comparison
equal deleted inserted replaced
238:b5f2e56b938d 239:41f2f0e326e9
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 xemacs-codename 43 (if (and xemacs-codename (not (featurep 'infodock)))
44 (concat "\"" xemacs-codename "\"") 44 (concat "\"" xemacs-codename "\"")
45 "") 45 "")
46 (concat " XEmacs " 46 (concat " XEmacs "
47 (if (not (featurep 'infodock)) 47 ;; (if (not (featurep 'infodock))
48 " Lucid" 48 " Lucid"
49 "")) 49 ;; ""))
50 )
50 (if xemacs-betaname 51 (if xemacs-betaname
51 (concat " " xemacs-betaname) 52 (concat " " xemacs-betaname)
52 ""))) 53 "")))
53 "Version numbers of this version of XEmacs.") 54 "Version numbers of this version of XEmacs.")
55
56 (if (featurep 'infodock)
57 (require 'id-vers))
54 58
55 ;; Moved to C code as of XEmacs 20.3 59 ;; Moved to C code as of XEmacs 20.3
56 ;(defconst emacs-major-version 60 ;(defconst emacs-major-version
57 ; (progn (or (string-match "^[0-9]+" emacs-version) 61 ; (progn (or (string-match "^[0-9]+" emacs-version)
58 ; (error "emacs-version unparsable")) 62 ; (error "emacs-version unparsable"))