annotate lisp/version.el @ 36793:929108f2cc16

*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Wed, 14 Mar 2001 12:29:42 +0000
parents 617fb94d7265
children 91dfc548c55c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
1 ;;; version.el --- record version number of Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
2
35197
f9654fb1f220 Set version to 21.0.96.
Gerd Moellmann <gerd@gnu.org>
parents: 34870
diff changeset
3 ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001
34478
1b32037b8a8d Set version to 21.0.94.
Gerd Moellmann <gerd@gnu.org>
parents: 33972
diff changeset
4 ;;; Free Software Foundation, Inc.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
5
Dave Love <fx@gnu.org>
parents:
diff changeset
6 ;; Maintainer: FSF
Dave Love <fx@gnu.org>
parents:
diff changeset
7 ;; Keywords: internal
Dave Love <fx@gnu.org>
parents:
diff changeset
8
Dave Love <fx@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
10
Dave Love <fx@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
Dave Love <fx@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; any later version.
Dave Love <fx@gnu.org>
parents:
diff changeset
15
Dave Love <fx@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
Dave Love <fx@gnu.org>
parents:
diff changeset
20
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
Dave Love <fx@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
Dave Love <fx@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Dave Love <fx@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
Dave Love <fx@gnu.org>
parents:
diff changeset
25
Dave Love <fx@gnu.org>
parents:
diff changeset
26 ;;; Code:
Dave Love <fx@gnu.org>
parents:
diff changeset
27
36542
617fb94d7265 Set version 21.0.99.
Gerd Moellmann <gerd@gnu.org>
parents: 36104
diff changeset
28 (defconst emacs-version "21.0.100" "\
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
29 Version numbers of this version of Emacs.")
Dave Love <fx@gnu.org>
parents:
diff changeset
30
Dave Love <fx@gnu.org>
parents:
diff changeset
31 (defconst emacs-major-version
Dave Love <fx@gnu.org>
parents:
diff changeset
32 (progn (string-match "^[0-9]+" emacs-version)
Dave Love <fx@gnu.org>
parents:
diff changeset
33 (string-to-int (match-string 0 emacs-version)))
Dave Love <fx@gnu.org>
parents:
diff changeset
34 "Major version number of this version of Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
35 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
36
Dave Love <fx@gnu.org>
parents:
diff changeset
37 (defconst emacs-minor-version
Dave Love <fx@gnu.org>
parents:
diff changeset
38 (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
Dave Love <fx@gnu.org>
parents:
diff changeset
39 (string-to-int (match-string 1 emacs-version)))
Dave Love <fx@gnu.org>
parents:
diff changeset
40 "Minor version number of this version of Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
41 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
42
Dave Love <fx@gnu.org>
parents:
diff changeset
43 (defconst emacs-build-time (current-time) "\
Dave Love <fx@gnu.org>
parents:
diff changeset
44 Time at which Emacs was dumped out.")
Dave Love <fx@gnu.org>
parents:
diff changeset
45
Dave Love <fx@gnu.org>
parents:
diff changeset
46 (defconst emacs-build-system (system-name))
Dave Love <fx@gnu.org>
parents:
diff changeset
47
Dave Love <fx@gnu.org>
parents:
diff changeset
48 (defun emacs-version (&optional here) "\
Dave Love <fx@gnu.org>
parents:
diff changeset
49 Return string describing the version of Emacs that is running.
Dave Love <fx@gnu.org>
parents:
diff changeset
50 If optional argument HERE is non-nil, insert string at point.
Dave Love <fx@gnu.org>
parents:
diff changeset
51 Don't use this function in programs to choose actions according
Dave Love <fx@gnu.org>
parents:
diff changeset
52 to the system configuration; look at `system-configuration' instead."
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (interactive "P")
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (let ((version-string
Dave Love <fx@gnu.org>
parents:
diff changeset
55 (format (if (not (interactive-p))
34870
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
56 "GNU Emacs %s (%s%s%s)\n of %s on %s"
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
57 "GNU Emacs %s (%s%s%s) of %s on %s")
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
58 emacs-version
Dave Love <fx@gnu.org>
parents:
diff changeset
59 system-configuration
Dave Love <fx@gnu.org>
parents:
diff changeset
60 (cond ((featurep 'motif) ", Motif")
Dave Love <fx@gnu.org>
parents:
diff changeset
61 ((featurep 'x-toolkit) ", X toolkit")
Dave Love <fx@gnu.org>
parents:
diff changeset
62 (t ""))
34870
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
63 (if (and (boundp 'x-toolkit-scroll-bars)
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
64 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
65 (format ", %s scroll bars"
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
66 (capitalize (symbol-name x-toolkit-scroll-bars)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
67 "")
34668
4d84de45722a (emacs-version): Remove `%a' from the time format
Gerd Moellmann <gerd@gnu.org>
parents: 34478
diff changeset
68 (format-time-string "%Y-%m-%d" emacs-build-time)
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
69 emacs-build-system)))
Dave Love <fx@gnu.org>
parents:
diff changeset
70 (if here
Dave Love <fx@gnu.org>
parents:
diff changeset
71 (insert version-string)
Dave Love <fx@gnu.org>
parents:
diff changeset
72 (if (interactive-p)
Dave Love <fx@gnu.org>
parents:
diff changeset
73 (message "%s" version-string)
Dave Love <fx@gnu.org>
parents:
diff changeset
74 version-string))))
Dave Love <fx@gnu.org>
parents:
diff changeset
75
Dave Love <fx@gnu.org>
parents:
diff changeset
76 ;;; We hope that this alias is easier for people to find.
Dave Love <fx@gnu.org>
parents:
diff changeset
77 (defalias 'version 'emacs-version)
Dave Love <fx@gnu.org>
parents:
diff changeset
78
Dave Love <fx@gnu.org>
parents:
diff changeset
79 ;;; We put version info into the executable in the form that ident(1) uses.
26950
903a19771606 Put the version info into binary on MS-DOS as well.
Eli Zaretskii <eliz@gnu.org>
parents: 25866
diff changeset
80 (or (memq system-type '(vax-vms windows-nt))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
81 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ? (emacs-version))
Dave Love <fx@gnu.org>
parents:
diff changeset
82 " $\n")))
Dave Love <fx@gnu.org>
parents:
diff changeset
83
Dave Love <fx@gnu.org>
parents:
diff changeset
84 ;;Local variables:
Dave Love <fx@gnu.org>
parents:
diff changeset
85 ;;version-control: never
Dave Love <fx@gnu.org>
parents:
diff changeset
86 ;;End:
Dave Love <fx@gnu.org>
parents:
diff changeset
87
Dave Love <fx@gnu.org>
parents:
diff changeset
88 ;;; version.el ends here