Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 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 fb556d2c7344
children 13a418960a88
comparison
equal deleted inserted replaced
2295:5a9fed6a7158 2296:a58ea4d0d0cd
357 (widget-insert (about-center xemacs-logo)) 357 (widget-insert (about-center xemacs-logo))
358 (widget-create 'default 358 (widget-create 'default
359 :format "%t" 359 :format "%t"
360 :tag-glyph xemacs-logo) 360 :tag-glyph xemacs-logo)
361 (widget-insert "\n") 361 (widget-insert "\n")
362 (let* ((emacs-short-version (format "%d.%d" 362 (let* ((emacs-short-version
363 emacs-major-version 363 (cond (emacs-beta-version (format "%d.%d.%d"
364 emacs-minor-version)) 364 emacs-major-version
365 (emacs-about-version (format "version %s; April 2001" 365 emacs-minor-version
366 emacs-beta-version))
367 (emacs-patch-level (format "%d.%d.%d"
368 emacs-major-version
369 emacs-minor-version
370 emacs-patch-level))
371 (t (format "%d.%d"
372 emacs-major-version
373 emacs-minor-version))))
374 (emacs-about-version (format "version %s of September 2004"
366 emacs-short-version))) 375 emacs-short-version)))
367 (widget-insert (about-center emacs-about-version)) 376 (widget-insert (about-center emacs-about-version))
368 (widget-create 'link :help-echo "What's new in XEmacs" 377 (widget-create 'link :help-echo "What's new in XEmacs"
369 :action 'about-news 378 :action 'about-news
370 emacs-about-version)) 379 emacs-about-version))
396 (widget-create 'link :help-echo "See a list of XEmacs advantages over GNU Emacs" 405 (widget-create 'link :help-echo "See a list of XEmacs advantages over GNU Emacs"
397 :action 'about-advantages 406 :action 'about-advantages
398 :button-prefix "" 407 :button-prefix ""
399 :button-suffix "" 408 :button-suffix ""
400 "advantages") 409 "advantages")
401 (widget-insert " over GNU Emacs. In addition, XEmacs 21.4 410 (widget-insert (format " over GNU Emacs. In addition, XEmacs %d.%d
402 provides many ") 411 provides many " emacs-major-version emacs-minor-version))
403 (widget-create 'link :help-echo "See a list of new features in XEmacs 21.4" 412 (widget-create 'link
413 :help-echo (format
414 "See a list of new features in XEmacs %d.%d"
415 emacs-major-version emacs-minor-version)
404 :action 'about-news 416 :action 'about-news
405 :button-prefix "" 417 :button-prefix ""
406 :button-suffix "" 418 :button-suffix ""
407 "new features") 419 "new features")
408 (widget-insert " not found in previous versions of XEmacs. 420 (widget-insert " not found in previous versions of XEmacs.