Mercurial > hg > xemacs-beta
annotate lisp/version.el @ 5305:09fed7053634
Handle slightly more complex type specifications, #'coerce, #'typep.
2010-11-17 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (coerce):
In the argument list, name the first argument OBJECT, not X; the
former name was always used in the doc string and is clearer.
Handle vector type specifications which include the length of the
target sequence, error if there's a mismatch.
* cl-macs.el (cl-make-type-test): Handle type specifications
starting with the symbol 'eql.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 17 Nov 2010 14:30:03 +0000 |
| parents | 5efbd1253905 |
| children | 91b3aa59f49b |
| rev | line source |
|---|---|
| 428 | 1 ;; version.el --- Record version number of Emacs. |
| 2 | |
| 3 ;; Copyright (C) 1985, 1991-1994, 1997 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Maintainer: XEmacs Development Team | |
| 6 ;; Keywords: internal, dumped | |
| 7 | |
| 8 ;; This file is part of XEmacs. | |
| 9 | |
| 10 ;; XEmacs is free software; you can redistribute it and/or modify | |
| 11 ;; it under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; XEmacs is distributed in the hope that it will be useful, | |
| 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 ;; GNU General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 613 | 21 ;; along with XEmacs; see the file COPYING. If not, write to the |
| 428 | 22 ;; Free Software Foundation Inc., 59 Temple Place - Suite 330, |
| 23 ;; Boston, MA 02111-1307, USA. | |
| 24 | |
| 25 ;;; Synched up with: FSF 19.34. | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 29 ;; This file is dumped with XEmacs. | |
| 30 | |
| 31 ;;; Code: | |
| 32 | |
| 33 (defconst xemacs-betaname | |
| 34 (and emacs-beta-version (format "(beta%d)" emacs-beta-version)) | |
| 35 "Non-nil when this is a test (beta) version of XEmacs. | |
|
4519
41c84a94258b
Improve beta-version-name docstring.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4246
diff
changeset
|
36 Warning, this variable did not exist in XEmacs versions prior to 20.3. |
|
4523
6a3006b37260
Fix docstring typo (and commit only this fix).
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
37 Its value is derived from `emacs-beta-version'. It is mutually exclusive |
|
4519
41c84a94258b
Improve beta-version-name docstring.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4246
diff
changeset
|
38 with `emacs-patch-level'.") |
| 428 | 39 |
| 40 (defconst emacs-version | |
| 975 | 41 (format "%d.%d %s%s%s%s%s" |
| 444 | 42 emacs-major-version |
| 43 emacs-minor-version | |
| 44 (if emacs-patch-level | |
| 45 (format "(patch %d)" emacs-patch-level) | |
| 46 "") | |
| 47 (if xemacs-betaname | |
| 48 (concat " " xemacs-betaname) | |
| 49 "") | |
| 50 (if xemacs-codename | |
| 51 (concat " \"" xemacs-codename "\"") | |
| 52 "") | |
| 975 | 53 (if xemacs-extra-name |
| 54 (concat " " xemacs-extra-name) | |
| 55 "") | |
| 444 | 56 " XEmacs Lucid") |
| 428 | 57 "Version numbers of this version of XEmacs.") |
| 58 | |
| 59 ;; Moved to C code as of XEmacs 20.3 | |
| 60 ;(defconst emacs-major-version | |
| 61 ; (progn (or (string-match "^[0-9]+" emacs-version) | |
| 62 ; (error "emacs-version unparsable")) | |
| 63 ; (string-to-int (match-string 0 emacs-version))) | |
| 64 ; "Major version number of this version of Emacs, as an integer. | |
| 65 ;Warning, this variable did not exist in Emacs versions earlier than: | |
| 66 ; FSF Emacs: 19.23 | |
| 67 ; XEmacs: 19.10") | |
| 68 | |
| 69 ;; Moved to C code as of XEmacs 20.3 | |
| 70 ;(defconst emacs-minor-version | |
| 71 ; (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) | |
| 72 ; (error "emacs-version unparsable")) | |
| 73 ; (string-to-int (match-string 1 emacs-version))) | |
| 74 ; "Minor version number of this version of Emacs, as an integer. | |
| 75 ;Warning, this variable did not exist in Emacs versions earlier than: | |
| 76 ; FSF Emacs: 19.23 | |
| 77 ; XEmacs: 19.10") | |
| 78 | |
| 79 (defconst emacs-build-time (current-time-string) | |
| 80 "Time at which Emacs was dumped out.") | |
| 81 | |
| 82 (defconst emacs-build-system (system-name)) | |
| 83 | |
| 84 (defun emacs-version (&optional arg) | |
| 85 "Return string describing the version of Emacs that is running. | |
| 86 When called interactively with a prefix argument, insert string at point. | |
| 87 Don't use this function in programs to choose actions according | |
| 88 to the system configuration; look at `system-configuration' instead." | |
| 89 (interactive "p") | |
| 90 (save-match-data | |
| 91 (let ((version-string | |
| 92 (format | |
| 93 "XEmacs %s %s(%s%s) of %s %s on %s" | |
| 94 (substring emacs-version 0 (string-match " XEmacs" emacs-version)) | |
|
5228
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5004
diff
changeset
|
95 "[Lucid] " |
| 428 | 96 system-configuration |
| 97 (cond ((or (and (fboundp 'featurep) | |
| 98 (featurep 'mule)) | |
| 99 (memq 'mule features)) ", Mule") | |
| 100 (t "")) | |
| 101 (substring emacs-build-time 0 | |
| 102 (string-match " *[0-9]*:" emacs-build-time)) | |
| 103 (substring emacs-build-time | |
| 104 (string-match "[0-9]*$" emacs-build-time)) | |
| 105 emacs-build-system))) | |
| 106 (cond | |
| 107 ((null arg) version-string) | |
| 108 ((eq arg 1) (message "%s" version-string)) | |
| 109 (t (insert version-string)))))) | |
| 110 | |
| 111 ;; from emacs-vers.el | |
| 112 (defun emacs-version>= (major &optional minor patch) | |
| 113 "Return true if the Emacs version is >= to the given MAJOR, MINOR, | |
| 114 and PATCH numbers. | |
| 115 The MAJOR version number argument is required, but the other arguments | |
| 116 argument are optional. Only the Non-nil arguments are used in the test." | |
| 117 (let ((emacs-patch (or emacs-patch-level emacs-beta-version -1))) | |
| 118 (cond ((> emacs-major-version major)) | |
| 119 ((< emacs-major-version major) nil) | |
| 120 ((null minor)) | |
| 121 ((> emacs-minor-version minor)) | |
| 122 ((< emacs-minor-version minor) nil) | |
| 123 ((null patch)) | |
| 124 ((>= emacs-patch patch))))) | |
| 125 | |
| 126 ;;; We hope that this alias is easier for people to find. | |
| 127 (define-function 'version 'emacs-version) | |
| 128 | |
| 4246 | 129 (defvar Installation-file-coding-system |
| 130 (eval-when-compile `,(coding-system-name (find-coding-system 'native))) | |
| 131 "The coding system used to create the `Installation' file. | |
| 132 | |
| 133 The `Installation' file is created by configure, and the | |
| 134 `Installation-string' variable reflects its contents. | |
| 135 | |
| 136 This is initialized to reflect the native coding system at the time | |
| 137 version.el was byte-compiled; ideally it would reflect the native coding | |
| 138 system of the environment when XEmacs was dumped, but the locale | |
| 139 initialization code isn't called at dump time, and the appropriate value | |
| 140 at byte-compile time should be close enough. Note that this means that the | |
| 141 value of `Installation-string' during dump time thus reflects loading the | |
| 142 file using the `binary' coding system. ") | |
| 428 | 143 |
| 4246 | 144 (defvar Installation-string |
| 145 ;; Initialize Installation-string. We do it before loading | |
| 146 ;; anything so that dumped code can make use of its value. | |
| 147 (save-current-buffer | |
| 148 (set-buffer (get-buffer-create (generate-new-buffer-name | |
| 149 " *temp*"))) | |
| 150 (insert-file-contents-internal | |
| 151 (expand-file-name "Installation" build-directory) | |
| 152 ;; Relies on our working out the system coding system | |
| 153 ;; correctly at startup. | |
| 154 nil nil nil nil | |
| 155 ;; Installation-file-coding-system is actually respected in | |
| 156 ;; mule/general-late.el, after all the dumped coding systems have been | |
| 157 ;; loaded. | |
| 158 'binary) | |
| 159 (prog1 (buffer-substring) | |
| 160 (kill-buffer (current-buffer)))) | |
| 161 "Description of XEmacs installation. | |
| 428 | 162 |
| 4246 | 163 This reflects the values that the configure script worked out at build time, |
| 164 including things like the C code features included at compile time and the | |
| 165 installation prefix. Normally used when submitting a bug report; | |
| 166 occasionally used, in a way the XEmacs developers don't endorse, to work out | |
| 167 version information. ") | |
| 168 | |
|
5004
788c38f20376
Do not assume #'format-decode exists in fileio.c.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4523
diff
changeset
|
169 ;;; version.el ends here |