annotate lisp/version.el @ 106511:1905fc4b8a80

* cmds.c: Include "frame.h". * frame.c: Include "font.h" also if !HAVE_WINDOW_SYSTEM. * frame.h: Move declaration of delete_frame outside of HAVE_WINDOW_SYSTEM.
author Andreas Schwab <schwab@linux-m68k.org>
date Wed, 09 Dec 2009 14:20:49 +0000
parents 2400073344ef
children 8c60b70f9505
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
104939
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
3 ;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003,
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
4 ;; 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
104939
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
27 ;; This file is loaded uncompiled when dumping Emacs.
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
28 ;; Doc-strings should adhere to the conventions of make-docfile.
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
29
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
30 ;;; Code:
Dave Love <fx@gnu.org>
parents:
diff changeset
31
104939
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
32 (defconst emacs-copyright "Copyright (C) 2009 Free Software Foundation, Inc." "\
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
33 Short copyright string for this version of Emacs.")
81219
2e52a666ce26 (emacs-copyright): New constant.
Glenn Morris <rgm@gnu.org>
parents: 77501
diff changeset
34
106502
2400073344ef Bump version to 23.1.90.
Chong Yidong <cyd@stupidchicken.com>
parents: 105372
diff changeset
35 (defconst emacs-version "23.1.90" "\
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
36 Version numbers of this version of Emacs.")
Dave Love <fx@gnu.org>
parents:
diff changeset
37
104939
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
38 (defconst emacs-major-version (progn (string-match "^[0-9]+" emacs-version) (string-to-number (match-string 0 emacs-version))) "\
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
39 Major version number of this version of Emacs.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
40 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
41
104939
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
42 (defconst emacs-minor-version (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) (string-to-number (match-string 1 emacs-version))) "\
82d9b29c48c5 Reformat doc-strings for make-docfile.
Glenn Morris <rgm@gnu.org>
parents: 103502
diff changeset
43 Minor version number of this version of Emacs.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
44 This variable first existed in version 19.23.")
Dave Love <fx@gnu.org>
parents:
diff changeset
45
Dave Love <fx@gnu.org>
parents:
diff changeset
46 (defconst emacs-build-time (current-time) "\
Dave Love <fx@gnu.org>
parents:
diff changeset
47 Time at which Emacs was dumped out.")
Dave Love <fx@gnu.org>
parents:
diff changeset
48
Dave Love <fx@gnu.org>
parents:
diff changeset
49 (defconst emacs-build-system (system-name))
Dave Love <fx@gnu.org>
parents:
diff changeset
50
64562
e54d85f535eb "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
51 (defun emacs-version (&optional here) "\
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
52 Return string describing the version of Emacs that is running.
Dave Love <fx@gnu.org>
parents:
diff changeset
53 If optional argument HERE is non-nil, insert string at point.
Dave Love <fx@gnu.org>
parents:
diff changeset
54 Don't use this function in programs to choose actions according
Dave Love <fx@gnu.org>
parents:
diff changeset
55 to the system configuration; look at `system-configuration' instead."
Dave Love <fx@gnu.org>
parents:
diff changeset
56 (interactive "P")
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
57 (let ((version-string
105372
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 104939
diff changeset
58 (format (if (not (called-interactively-p 'interactive))
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
59 "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
60 "GNU Emacs %s (%s%s%s) of %s on %s")
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
61 emacs-version
Dave Love <fx@gnu.org>
parents:
diff changeset
62 system-configuration
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
63 (cond ((featurep 'motif)
37214
b67db6e4ed56 (emacs-version): Include LessTif/Motif version info.
Gerd Moellmann <gerd@gnu.org>
parents: 37204
diff changeset
64 (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
65 ((featurep 'gtk)
2f148721b4f0 (emacs-version): Check for gtk. Include gtk version info.
Lute Kamstra <lute@gnu.org>
parents: 49597
diff changeset
66 (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
67 ((featurep 'x-toolkit) ", X toolkit")
96921
72d6895432c7 * term/ns-win.el:
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96675
diff changeset
68 ((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
69 (format ", NS %s" ns-version-string))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
70 (t ""))
34870
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
71 (if (and (boundp 'x-toolkit-scroll-bars)
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
72 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
73 (format ", %s scroll bars"
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
74 (capitalize (symbol-name x-toolkit-scroll-bars)))
6c2c536e15aa (emacs-version): Print X scroll bar information.
Gerd Moellmann <gerd@gnu.org>
parents: 34680
diff changeset
75 "")
34668
4d84de45722a (emacs-version): Remove `%a' from the time format
Gerd Moellmann <gerd@gnu.org>
parents: 34478
diff changeset
76 (format-time-string "%Y-%m-%d" emacs-build-time)
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
77 emacs-build-system)))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
78 (if here
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
79 (insert version-string)
105372
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 104939
diff changeset
80 (if (called-interactively-p 'interactive)
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
81 (message "%s" version-string)
Dave Love <fx@gnu.org>
parents:
diff changeset
82 version-string))))
Dave Love <fx@gnu.org>
parents:
diff changeset
83
41168
d647c8dc631c *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39873
diff changeset
84 ;; We hope that this alias is easier for people to find.
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
85 (defalias 'version 'emacs-version)
Dave Love <fx@gnu.org>
parents:
diff changeset
86
42656
cd29af650db0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 42649
diff changeset
87 ;; 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
88 (or (eq system-type 'windows-nt)
64562
e54d85f535eb "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
89 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
90 " $\n")))
Dave Love <fx@gnu.org>
parents:
diff changeset
91
Dave Love <fx@gnu.org>
parents:
diff changeset
92 ;;Local variables:
Dave Love <fx@gnu.org>
parents:
diff changeset
93 ;;version-control: never
Dave Love <fx@gnu.org>
parents:
diff changeset
94 ;;End:
Dave Love <fx@gnu.org>
parents:
diff changeset
95
76234
8e2b98658b15 (emacs-major-version, emacs-minor-version): string-to-int -> string-to-number.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 76097
diff changeset
96 ;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
25866
Dave Love <fx@gnu.org>
parents:
diff changeset
97 ;;; version.el ends here