1 ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*-
3 ;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003,
4 ;; 2004, 2005, 2006, 2007, 2008, 2009
5 ;; Free Software Foundation, Inc.
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27 ;; This file is loaded uncompiled when dumping Emacs.
28 ;; Doc-strings should adhere to the conventions of make-docfile.
32 (defconst emacs-copyright
"Copyright (C) 2009 Free Software Foundation, Inc." "\
33 Short copyright string for this version of Emacs.")
35 (defconst emacs-version
"23.1.90" "\
36 Version numbers of this version of Emacs.")
38 (defconst emacs-major-version
(progn (string-match "^[0-9]+" emacs-version
) (string-to-number (match-string 0 emacs-version
))) "\
39 Major version number of this version of Emacs.
40 This variable first existed in version 19.23.")
42 (defconst emacs-minor-version
(progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version
) (string-to-number (match-string 1 emacs-version
))) "\
43 Minor version number of this version of Emacs.
44 This variable first existed in version 19.23.")
46 (defconst emacs-build-time
(current-time) "\
47 Time at which Emacs was dumped out.")
49 (defconst emacs-build-system
(system-name))
51 (defun emacs-version (&optional here
) "\
52 Return string describing the version of Emacs that is running.
53 If optional argument HERE is non-nil, insert string at point.
54 Don't use this function in programs to choose actions according
55 to the system configuration; look at `system-configuration' instead."
58 (format (if (not (called-interactively-p 'interactive
))
59 "GNU Emacs %s (%s%s%s)\n of %s on %s"
60 "GNU Emacs %s (%s%s%s) of %s on %s")
63 (cond ((featurep 'motif
)
64 (concat ", " (substring motif-version-string
4)))
66 (concat ", GTK+ Version " gtk-version-string
))
67 ((featurep 'x-toolkit
) ", X toolkit")
69 (format ", NS %s" ns-version-string
))
71 (if (and (boundp 'x-toolkit-scroll-bars
)
72 (memq x-toolkit-scroll-bars
'(xaw xaw3d
)))
73 (format ", %s scroll bars"
74 (capitalize (symbol-name x-toolkit-scroll-bars
)))
76 (format-time-string "%Y-%m-%d" emacs-build-time
)
79 (insert version-string
)
80 (if (called-interactively-p 'interactive
)
81 (message "%s" version-string
)
84 ;; We hope that this alias is easier for people to find.
85 (defalias 'version
'emacs-version
)
87 ;; We put version info into the executable in the form that `ident' uses.
88 (or (eq system-type
'windows-nt
)
89 (purecopy (concat "\n$Id: " (subst-char-in-string ?
\n ?\s
(emacs-version))
93 ;;version-control: never
96 ;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
97 ;;; version.el ends here