Mercurial > hg > xemacs-beta

changeset 2296:a58ea4d0d0cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-22 01:10:52 by stephent] generate better version info in About XEmacs <87sm9baz4d.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 22 Sep 2004 01:10:57 +0000
parents 5a9fed6a7158
children 13a418960a88
files lisp/ChangeLog lisp/about.el
diffstat 2 files changed, 25 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Sep 21 21:54:29 2004 +0000
+++ b/lisp/ChangeLog	Wed Sep 22 01:10:57 2004 +0000
@@ -1,3 +1,9 @@
+2004-07-12  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* about.el (about-xemacs):
+	Give more precise version info.
+	Compute version numbers.
+
 2004-09-21  Jerry James  <james@xemacs.org>
 
 	* itimer.el (start-itimer): Fix my bungling of Martin's intentions.
--- a/lisp/about.el	Tue Sep 21 21:54:29 2004 +0000
+++ b/lisp/about.el	Wed Sep 22 01:10:57 2004 +0000
@@ -359,10 +359,19 @@
 		   :format "%t"
 		   :tag-glyph xemacs-logo)
     (widget-insert "\n")
-    (let* ((emacs-short-version (format "%d.%d"
-					emacs-major-version
-					emacs-minor-version))
-	   (emacs-about-version (format "version %s; April 2001"
+    (let* ((emacs-short-version
+	    (cond (emacs-beta-version (format "%d.%d.%d"
+					      emacs-major-version
+					      emacs-minor-version
+					      emacs-beta-version))
+		  (emacs-patch-level (format "%d.%d.%d"
+					     emacs-major-version
+					     emacs-minor-version
+					     emacs-patch-level))
+		  (t (format "%d.%d"
+			     emacs-major-version
+			     emacs-minor-version))))
+	   (emacs-about-version (format "version %s of September 2004"
 					emacs-short-version)))
       (widget-insert (about-center emacs-about-version))
       (widget-create 'link :help-echo "What's new in XEmacs"
@@ -398,9 +407,12 @@
 		   :button-prefix ""
 		   :button-suffix ""
 		   "advantages")
-    (widget-insert " over GNU Emacs.  In addition, XEmacs 21.4
-provides many ")
-    (widget-create 'link :help-echo "See a list of new features in XEmacs 21.4"
+    (widget-insert (format " over GNU Emacs.  In addition, XEmacs %d.%d
+provides many " emacs-major-version emacs-minor-version))
+    (widget-create 'link
+		   :help-echo (format
+			       "See a list of new features in XEmacs %d.%d"
+			       emacs-major-version emacs-minor-version)
 		   :action 'about-news
 		   :button-prefix ""
 		   :button-suffix ""