annotate lisp/version.el @ 103432:c849cd055fab

(status_message): Fix previous change. Be sure to decode a localized string.
author Kenichi Handa <handa@m17n.org>
date Mon, 15 Jun 2009 13:20:53 +0000
parents 75e6ecda8c42
children 553e282e658d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47726
33d53d287ee4 Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents: 45511
diff changeset
1 ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*-
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
2
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64562
diff changeset
3 ;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2002,
100894
2e600dc0be6d (emacs-copyright): Update for 2009.
Glenn Morris <rgm@gnu.org>
parents: 99028
diff changeset
4 ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009
100895
6c87f425cc70 Fix typo in previous.
Glenn Morris <rgm@gnu.org>
parents: 100894
diff changeset
5 ;; Free Software Foundation, Inc.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
6
Dave Love <fx@gnu.org>
parents:
diff changeset
7 ;; Maintainer: FSF
Dave Love <fx@gnu.org>
parents:
diff changeset
8 ;; Keywords: internal
Dave Love <fx@gnu.org>
parents:
diff changeset
9
Dave Love <fx@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
11
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
15 ;; (at your option) any later version.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
16
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Dave Love <fx@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
Dave Love <fx@gnu.org>
parents:
diff changeset
21
Dave Love <fx@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
24
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 38400
diff changeset
25 ;;; Commentary:
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 38400
diff changeset
26
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
27 ;;; Code:
Dave Love <fx@gnu.org>
parents:
diff changeset
28
100894
2e600dc0be6d (emacs-copyright): Update for 2009.
Glenn Morris <rgm@gnu.org>
parents: 99028
diff changeset
29 (defconst emacs-copyright "Copyright (C) 2009 Free Software Foundation, Inc."
81219
2e52a666ce26 (emacs-copyright): New constant.
Glenn Morris <rgm@gnu.org>
parents: 77501
diff changeset
30 "Short copyright string for this version of Emacs.")
2e52a666ce26 (emacs-copyright): New constant.
Glenn Morris <rgm@gnu.org>
parents: 77501
diff changeset
31
103279
75e6ecda8c42 Bump version to 23.0.94.
Chong Yidong <cyd@stupidchicken.com>
parents: 103130
diff changeset
32 (defconst emacs-version "23.0.94" "\
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
33 Version numbers of this version of Emacs.")
Dave Love <fx@gnu.org>
parents:
diff changeset
34
Dave Love <fx@gnu.org>
parents:
diff changeset
35 (defconst emacs-major-version
Dave Love <fx@gnu.org>
parents:
diff changeset
36 (progn (string-match "^[0-9]+" emacs-version)
76234
8e2b98658b15 (emacs-major-version, emacs-minor-version): string-to-int -> string-to-number.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 76097
diff changeset
37 (string-to-number (match-string 0 emacs-version)))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
38 "Major version number of this version of Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
39 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
40
Dave Love <fx@gnu.org>
parents:
diff changeset
41 (defconst emacs-minor-version
Dave Love <fx@gnu.org>
parents:
diff changeset
42 (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
76234
8e2b98658b15 (emacs-major-version, emacs-minor-version): string-to-int -> string-to-number.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 76097
diff changeset
43 (string-to-number (match-string 1 emacs-version)))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
44 "Minor version number of this version of Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
45 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
46
Dave Love <fx@gnu.org>
parents:
diff changeset
47 (defconst emacs-build-time (current-time) "\
Dave Love <fx@gnu.org>
parents:
diff changeset
48 Time at which Emacs was dumped out.")
Dave Love <fx@gnu.org>
parents:
diff changeset
49
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (defconst emacs-build-system (system-name))
Dave Love <fx@gnu.org>
parents:
diff changeset
51
64562
e54d85f535eb "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
52 (defun emacs-version (&optional here) "\
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
53 Return string describing the version of Emacs that is running.
Dave Love <fx@gnu.org>
parents:
diff changeset
54 If optional argument HERE is non-nil, insert string at point.
Dave Love <fx@gnu.org>
parents:
diff changeset
55 Don't use this function in programs to choose actions according
Dave Love <fx@gnu.org>
parents:
diff changeset
56 to the system configuration; look at `system-configuration' instead."
Dave Love <fx@gnu.org>
parents:
diff changeset
57 (interactive "P")
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
58 (let ((version-string
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (format (if (not (interactive-p))
84362
c4b3ecda1e21 (emacs-version): Revert 2007-08-29 change: no need to say if multi-tty
Glenn Morris <rgm@gnu.org>
parents: 83749
diff changeset
60 "GNU Emacs %s (%s%s%s)\n of %s on %s"
c4b3ecda1e21 (emacs-version): Revert 2007-08-29 change: no need to say if multi-tty
Glenn Morris <rgm@gnu.org>
parents: 83749
diff changeset
61 "GNU Emacs %s (%s%s%s) of %s on %s")
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
62 emacs-version
Dave Love <fx@gnu.org>
parents:
diff changeset
63 system-configuration
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
64 (cond ((featurep 'motif)
37214
b67db6e4ed56 (emacs-version): Include LessTif/Motif version info.
Gerd Moellmann <gerd@gnu.org>
parents: 37204
diff changeset
65 (concat ", " (substring motif-version-string 4)))
52335
2f148721b4f0 (emacs-version): Check for gtk. Include gtk version info.
Lute Kamstra <lute@gnu.org>
parents: 49597
diff changeset
66 ((featurep 'gtk)
2f148721b4f0 (emacs-version): Check for gtk. Include gtk version info.
Lute Kamstra <lute@gnu.org>
parents: 49597
diff changeset
67 (concat ", GTK+ Version " gtk-version-string))
55567
f5732b5fb78b (emacs-version): Check for `gtk' feature before `x-toolkit' feature.
John Paul Wallington <jpw@pobox.com>
parents: 52401
diff changeset
68 ((featurep 'x-toolkit) ", X toolkit")
96921
72d6895432c7 * term/ns-win.el:
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96675
diff changeset
69 ((featurep 'ns)
99028
713fc3ab99e5 * lisp/version.el (emacs-version): Change '*Step' to 'NS' for consistency with other documentation. * src/nsfns.m (ns_appkit_version): New function. (x-server-version): Use it. (syms_of_nsfns): Define ns-version-string here, not nsterm.m. (x-server-vendor): Don't check_ns(). * nsterm.m (syms_of_nsterm): Drop ns-version-string.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97142
diff changeset
70 (format ", NS %s" ns-version-string))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
71 (t ""))
34870
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
72 (if (and (boundp 'x-toolkit-scroll-bars)
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
73 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
74 (format ", %s scroll bars"
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
75 (capitalize (symbol-name x-toolkit-scroll-bars)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
76 "")
34668
4d84de45722a (emacs-version): Remove `%a' from the time format
Gerd Moellmann <gerd@gnu.org>
parents: 34478
diff changeset
77 (format-time-string "%Y-%m-%d" emacs-build-time)
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
78 emacs-build-system)))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
79 (if here
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
80 (insert version-string)
Dave Love <fx@gnu.org>
parents:
diff changeset
81 (if (interactive-p)
Dave Love <fx@gnu.org>
parents:
diff changeset
82 (message "%s" version-string)
Dave Love <fx@gnu.org>
parents:
diff changeset
83 version-string))))
Dave Love <fx@gnu.org>
parents:
diff changeset
84
41168
d647c8dc631c *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39873
diff changeset
85 ;; We hope that this alias is easier for people to find.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
86 (defalias 'version 'emacs-version)
Dave Love <fx@gnu.org>
parents:
diff changeset
87
42656
cd29af650db0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 42649
diff changeset
88 ;; We put version info into the executable in the form that `ident' uses.
97142
c3512b2085a0 * bitmaps/README:
Dan Nicolaescu <dann@ics.uci.edu>
parents: 97043
diff changeset
89 (or (eq system-type 'windows-nt)
64562
e54d85f535eb "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
90 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
91 " $\n")))
Dave Love <fx@gnu.org>
parents:
diff changeset
92
Dave Love <fx@gnu.org>
parents:
diff changeset
93 ;;Local variables:
Dave Love <fx@gnu.org>
parents:
diff changeset
94 ;;version-control: never
Dave Love <fx@gnu.org>
parents:
diff changeset
95 ;;End:
Dave Love <fx@gnu.org>
parents:
diff changeset
96
76234
8e2b98658b15 (emacs-major-version, emacs-minor-version): string-to-int -> string-to-number.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 76097
diff changeset
97 ;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
98 ;;; version.el ends here