Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 2602:3d8cce0303fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 a159338ecf7c
children 1ea43ec83f12
comparison
equal deleted inserted replaced
2601:29846858dfc8 2602:3d8cce0303fa
376 emacs-minor-version 376 emacs-minor-version
377 emacs-patch-level)) 377 emacs-patch-level))
378 (t (format "%d.%d" 378 (t (format "%d.%d"
379 emacs-major-version 379 emacs-major-version
380 emacs-minor-version)))) 380 emacs-minor-version))))
381 (emacs-about-version (format "version %s of September 2004" 381 (emacs-release-date
382 emacs-short-version))) 382 (if (and (boundp 'xemacs-release-date)
383 (stringp xemacs-release-date)
384 (string-match "^\\([0-9]\\{4\\}\\)-\\([0-9][0-9]\\)-"
385 xemacs-release-date))
386 (format "%s %s"
387 (aref [ "January" "February" "March" "April"
388 "May" "June" "July" "August"
389 "September" "October" "November" "December" ]
390 (1- (string-to-number
391 (match-string 2 xemacs-release-date))))
392 (match-string 1 xemacs-release-date))
393 "February 2005 (defaulted in about.el)"))
394 (emacs-variant-info (if (and xemacs-extra-name
395 (stringp xemacs-extra-name)
396 (< 0 (length xemacs-extra-name)))
397 (format " %s" xemacs-extra-name)
398 ""))
399 (emacs-about-version (format "version %s of %s%s"
400 emacs-short-version
401 emacs-release-date
402 emacs-variant-info)))
383 (widget-insert (about-center emacs-about-version)) 403 (widget-insert (about-center emacs-about-version))
384 (widget-create 'link :help-echo "What's new in XEmacs" 404 (widget-create 'link :help-echo "What's new in XEmacs"
385 :action 'about-news 405 :action 'about-news
386 emacs-about-version)) 406 emacs-about-version))
387 407