diff src/emacs.c @ 2602:3d8cce0303fa

[xemacs-hg @ 2005-02-22 07:15:59 by stephent] xemacs-release-date <874qg56pbc.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 22 Feb 2005 07:16:16 +0000
parents 4c1f2310451d
children 6fa9919a9a0b
line wrap: on
line diff
--- a/src/emacs.c	Mon Feb 21 22:51:17 2005 +0000
+++ b/src/emacs.c	Tue Feb 22 07:16:16 2005 +0000
@@ -509,6 +509,7 @@
 Lisp_Object Vemacs_beta_version;
 Lisp_Object Vxemacs_codename;
 Lisp_Object Vxemacs_extra_name;
+Lisp_Object Vxemacs_release_date;
 #ifdef INFODOCK
 Lisp_Object Vinfodock_major_version;
 Lisp_Object Vinfodock_minor_version;
@@ -4146,15 +4147,31 @@
   Vxemacs_codename = build_string (XEMACS_CODENAME);
 
   DEFVAR_LISP ("xemacs-extra-name", &Vxemacs_extra_name /*
-Extra string to maybe put into the version string.
-
-Usually used to denote an XEmacs built from a CVS checkout between
-releases.  In that case its value would be \"(+CVS)\".
+Arbitrary string to place in the version string after the codename.
+
+Appropriate surrounding whitespace will be added, but typically looks best
+if enclosed in parentheses.
+
+A standard use is to indicate the date version.sh was last updated from
+the CVS mainline, where it is automatically given a value similar to
+\"(+CVS-20050221)\".  Developers may also use it to indicate particular
+branches, etc.
 */ );
 #ifdef XEMACS_EXTRA_NAME
   Vxemacs_extra_name = build_string (XEMACS_EXTRA_NAME);
 #endif
   
+  DEFVAR_LISP ("xemacs-release-date", &Vxemacs_release_date /*
+ISO 8601 format date string giving the date of latest release in series.
+
+The time may optionally be given.  The time zone may not be given, and
+is (implicitly) UTC.  Currently not included in the version string.
+*/ );
+#ifndef XEMACS_RELEASE_DATE
+#define XEMACS_RELEASE_DATE "2005-02-18 (defaulted in emacs.c)"
+#endif
+  Vxemacs_release_date = build_string (XEMACS_RELEASE_DATE);
+  
   /* Lisp variables which contain command line flags.
 
      The portable dumper stomps on these; they must be saved and restored
@@ -4169,12 +4186,14 @@
 */ );
 
   DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
-Set to non-nil when the early packages should not be respected at startup.
+Set to non-nil when the early packages should be ignored at startup.
+Early package directories will not be added to `load-path', nor set up as
+autoloads, nothing.
 */ );
 
   DEFVAR_BOOL ("inhibit-all-packages", &inhibit_all_packages /*
-Set to non-nil when the no packages should not be respected at startup.
-XEmacs will utterly ignore the packages -- not in load-path, not set up as
+Set to non-nil when all packages should be ignored at startup.
+Package directories will not be added to `load-path', nor set up as
 autoloads, nothing.
 */ );