X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fabout.el;h=3d1d5af947b923f186b4c60a3ed10e64299c0a1d;hb=fa830731c44f00f7831eafa9fabfa05f155bbbaa;hp=b55845f151d66293567066cb1f642b19e1001286;hpb=de1ec4b272dfa3f9ef2c9ae28a9ba67170d24da5;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/about.el b/lisp/about.el
index b55845f..3d1d5af 100644
--- a/lisp/about.el
+++ b/lisp/about.el
@@ -358,11 +358,27 @@
 		   :format "%t"
 		   :tag-glyph xemacs-logo)
     (widget-insert "\n")
-    (let* ((emacs-short-version (format "%d.%d"
+    (let* ((emacs-short-version (format "%d.%d.%d"
 					emacs-major-version
-					emacs-minor-version))
-	   (emacs-about-version (format "version %s; April 2001"
-					emacs-short-version)))
+					emacs-minor-version
+					emacs-patch-level))
+	   (emacs-about-version (format "version %s; %s %s"
+					emacs-short-version
+					(cdr (assoc (substring emacs-build-time
+							       4 7)
+						    '(("Jan" . "January")
+						      ("Feb" . "February")
+						      ("Mar" . "March")
+						      ("Apr" . "April")
+						      ("May" . "May")
+						      ("Jun" . "June")
+						      ("Jul" . "July")
+						      ("Aug" . "August")
+						      ("Sep" . "September")
+						      ("Oct" . "October")
+						      ("Nov" . "November")
+						      ("Dec" . "December"))))
+					(substring emacs-build-time -4))))
       (widget-insert (about-center emacs-about-version))
       (widget-create 'link :help-echo "What's new in XEmacs"
 		     :action 'about-news
@@ -1288,7 +1304,7 @@ Assistant Professor of Biostatistics at the University of Washington
 and the Fred Hutchinson Cancer Research Center.
 
 See ")
-     (about-url-link 'rossini nil "Visit Anothony's home page")
+     (about-url-link 'rossini nil "Visit Anthony's home page")
      (widget-insert ".\n"))
     (slb
      (widget-insert "\