X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fabout.el;h=3d1d5af947b923f186b4c60a3ed10e64299c0a1d;hb=2975c520d6cb01f521affb64e26f229a1f1d204e;hp=f24468b43d933b8a4935e6dea737a8a12c82793a;hpb=3f6ecf401c01c83743af2c1e068f57e8d2e2e410;p=chise%2Fxemacs-chise.git- diff --git a/lisp/about.el b/lisp/about.el index f24468b..3d1d5af 100644 --- a/lisp/about.el +++ b/lisp/about.el @@ -114,7 +114,7 @@ (dv "Didier Verna" "didier@xemacs.org") (eb "Eric Benson" "eb@xemacs.org") (fabrice "Fabrice Popineau" "fabrice@xemacs.org") - (golubev "I N Golubev" "golubev@xemacs.org") + (golubev "Ilya Golubev" "golubev@xemacs.org") (gunnar "Gunnar Evermann" "gunnar@xemacs.org") (hbs "Harlan Sexton" "hbs@xemacs.org") (hisashi "Hisashi Miyashita" "hisashi@xemacs.org") @@ -167,14 +167,14 @@ (defvar about-current-release-maintainers ;; this list should not necessarily be in sorted order. - '(turnbull adrian ben hniksic jason martin piper sperber youngs)) + '(vin turnbull adrian ben martin piper sperber youngs)) (defvar about-other-current-hackers ;; to sort this list or the one below, use: ;; M-x sort-regexp-fields RET [a-z]+ RET \(.*\) RET - '(aj alastair cgw craig daiki dan dv fabrice golubev gunnar hisashi - jan jareth jmiller jonathan kazz kirill larsi morioka mta ograf - olivier oscar pittman tomonori tuck vin wmperry yoshiki)) + '(aj alastair cgw craig daiki dan dv fabrice golubev gunnar hisashi hniksic + jan jareth jmiller jason jonathan kazz kirill larsi morioka mta ograf + olivier oscar pittman tomonori tuck wmperry yoshiki)) (defvar about-once-and-future-hackers '(ajc baw bw chr cthomp darrylo devin dkindred dmoore eb hbs hmuller @@ -210,7 +210,7 @@ (marcpa . "http://www.positron911.com/products/power.htm") (ograf . "http://www.fga.de/~ograf/") (pez . "http://cbs.sportsline.com/") - (piper . "http://www.xemacs.freeserve.co.uk/") + (piper . "http://www.andypiper.com/") (rossini . "http://faculty.washington.edu/rossini/") (stigb . "http://www.tihlde.hist.no/~stigb/") (vin . "http://www.upa.org/") @@ -243,12 +243,16 @@ :tag (or text-to-insert url) url)) -;; Insert a mailto: link in the buffer. +;; Insert a mail link in the buffer. (defun about-mailto-link (address) - (about-url-link - (concat "mailto:" address) address - (concat "Send mail to " address) - )) + (lexical-let ((address address)) + (widget-create 'link + :tag address + :button-prefix "" + :button-suffix "" + :action (lambda (widget &optional event) + (compose-mail address)) + :help-echo (format "Send mail to %s" address)))) ;; Attach a face to a string, in order to be inserted into the buffer. ;; Make sure that the extent is duplicable, but unique. Returns the @@ -354,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 @@ -951,7 +971,19 @@ It is included in the TeX Live cdrom edited by Sebastian Rahtz.\n") (golubev (widget-insert "\ -Sorry, no personal information available about me yet.\n")) +I appreciate power of XEmacs, but elementary editing operations should +be done by single keystrokes with no modifiers. So would not use +XEmacs until discovered viper, and now can't live without viper. +Occasionally dislike something in there or in other free software, and +try to get it fixed. .plan file contains classic (perhaps reinvented +independently) formula: + +Hacking world for ever + +(borrowed from \"Hacking X for Y\" in ") + (about-url-link "http://www.jargon.org/" + "Jargon File" "www.jargon.org") + (widget-insert ").\n")) (gunnar (widget-insert "\ @@ -1220,7 +1252,7 @@ xxML and hairy script languages !) and the Scheme language.\n")) (pelegri (widget-insert "\ -I did my my PhD at UCB and a postdoc at CSL/PARC. I joined Sun in 1990, +I did my PhD at UCB and a postdoc at CSL/PARC. I joined Sun in 1990, spent some time in DevPro (that is when I made my contribution to XEmacs) and joined JavaSoft in fall '95, where I've been the lead for several JSP-related specifications and JAX-RPC. I'm currently the Web @@ -1240,8 +1272,10 @@ for CBS SportsLine. See ") My home page is here:\n") (about-url-link 'piper nil "Visit andy's home page") (widget-insert "\n -Andy has recently rejoined the XEmacs team to help port XEmacs to -MS Windows operating systems.\n")) + Andy has been active in the XEmacs team for a number of years, +helping port XEmacs to MS Windows operating systems. He is also the +current MS Windows release manager and maintains the MS Windows +netinstaller.\n")) (pittman (widget-insert "\ @@ -1270,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 "\ @@ -1329,14 +1363,12 @@ Stephen lives with his Japanese wife and children in Tsukuba, Japan, where he is a professor of economics at the University of Tsukuba.\n")) (vin (widget-insert "\ -I own and operate my own consulting firm, EtherSoft. Shhh, don't -tell anyone, but it's named after an Ultimate team I used to play -with in Austin, Texas - the Ether Bunnies. I'm getting too old -to play competitive Ultimate any more, so now I've gotten roped -into serving on the board of directors of the Ultimate Players -Association. See ") - (about-url-link 'vin nil "Visit the UPA homepage") - (widget-insert ".\n")) +I'm a software engineer and manager for Teradyne in Boston. I used +to play a lot of Ultimate - see ") + (about-url-link 'vin nil "Visit the Ultimate Players Association homepage") + (widget-insert " for more details. +Nowadays I'm a family man, so I spend a lot of time with my wife, +Becky, and my son, Noah.\n")) (vladimir (widget-insert "\ Former technical lead for XEmacs at Sun. He is now writing a book on @@ -1517,7 +1549,10 @@ I also contributed elisp code long ago to make Gnus run under XEmacs.\n")) (golubev (widget-insert "\ -Sorry, no information about my XEmacs contributions yet.\n")) +Used XEmacs since early 1997. Fixed bugs that annoy me, both in +XEmacs core and in packages I use, mostly viper. Hoping to get +coding-cookie package distributed, which is also a fix of what I +consider a bug.\n")) (gunnar (widget-insert "\ @@ -1738,12 +1773,11 @@ Responsible for getting the current release of XEmacs out the door.\n")) (vin (widget-insert "\ -Vin helps maintain the older, more mature (read: moldy) versions of -XEmacs. Vin maintains the XEmacs patch pages in order to bring a more -stable XEmacs. (Actually, he does it 'cause it's fun and he's been -using emacs for a long, long time.) Vin also contributed the detached -minibuffer code as well as a few minor enhancements to the menubar -options.\n")) +Vin maintains the stable version of XEmacs. This involves reviewing +a lot of other peoples' patches and testing and applying them. +He also gets to generate his own patches from time to time. Being +release manager is a fun way to contribute to the XEmacs project. +Write me at acs@xemacs.org if you're interested in learning more.\n")) (vladimir (widget-insert "\ Former technical lead for XEmacs at Sun.\n"))