Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents 4b85ae5eabfb
children 3cc9f0ebfbd1
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Synched up with: Not in FSF. 26 ;;; Synched up with: Not in FSF.
27 27
28 ;; Original code: Jamie Zawinski <jwz@netscape.com> 28 ;; Original code: Jamie Zawinski <jwz@netscape.com>
29 ;; Text: Ben Wing <wing@666.com>, Jamie Zawinski <jwz@netscape.com> 29 ;; Text: Ben Wing <ben@xemacs.org>, Jamie Zawinski <jwz@netscape.com>
30 ;; Hard: Amiga 1000, Progressive Peripherals Frame Grabber. 30 ;; Hard: Amiga 1000, Progressive Peripherals Frame Grabber.
31 ;; Soft: FG 2.0, DigiPaint 3.0, pbmplus (dec 91), xv 3.0. 31 ;; Soft: FG 2.0, DigiPaint 3.0, pbmplus (dec 91), xv 3.0.
32 ;; Modified for 19.11 by Eduardo Pelegri-Llopart <pelegri@eng.sun.com> 32 ;; Modified for 19.11 by Eduardo Pelegri-Llopart <pelegri@eng.sun.com>
33 ;; and Chuck Thompson <cthomp@xemacs.org> 33 ;; and Chuck Thompson <cthomp@xemacs.org>
34 ;; More hacking for 19.12 by Chuck Thompson and Ben Wing. 34 ;; More hacking for 19.12 by Chuck Thompson and Ben Wing.
64 (dv "Didier Verna" "verna@inf.enst.fr") 64 (dv "Didier Verna" "verna@inf.enst.fr")
65 (hniksic "Hrvoje Niksic" "hniksic@srce.hr") 65 (hniksic "Hrvoje Niksic" "hniksic@srce.hr")
66 (jareth "Jareth Hein" "jareth@camelot.co.jp") 66 (jareth "Jareth Hein" "jareth@camelot.co.jp")
67 (jason "Jason Mastaler" "jason@mastaler.com") 67 (jason "Jason Mastaler" "jason@mastaler.com")
68 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de") 68 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de")
69 (jmiller "Jeff Miller" "jmiller@smart.net")
69 (juhp "Jens-Ulrik Holger Petersen" "petersen@kurims.kyoto-u.ac.jp") 70 (juhp "Jens-Ulrik Holger Petersen" "petersen@kurims.kyoto-u.ac.jp")
70 (jwz "Jamie Zawinski" "jwz@netscape.com") 71 (jwz "Jamie Zawinski" "jwz@netscape.com")
71 (kazz "IENAGA Kazuyuki" "ienaga@jsys.co.jp") 72 (kazz "IENAGA Kazuyuki" "ienaga@jsys.co.jp")
72 (kyle "Kyle Jones" "kyle_jones@wonderworks.com") 73 (kyle "Kyle Jones" "kyle_jones@wonderworks.com")
73 (larsi "Lars Magne Ingebrigtsen" "larsi@gnus.org") 74 (larsi "Lars Magne Ingebrigtsen" "larsi@gnus.org")
86 (slb "SL Baur" "steve@xemacs.org") 87 (slb "SL Baur" "steve@xemacs.org")
87 (stig "Jonathan Stigelman" "stig@hackvan.com") 88 (stig "Jonathan Stigelman" "stig@hackvan.com")
88 (stigb "Stig Bjorlykke" "stigb@tihlde.hist.no") 89 (stigb "Stig Bjorlykke" "stigb@tihlde.hist.no")
89 (thiessel "Marcus Thiessel" "thiessel@rhrk.uni-kl.de") 90 (thiessel "Marcus Thiessel" "thiessel@rhrk.uni-kl.de")
90 (vladimir "Vladimir Ivanovic" "vladimir@mri.com") 91 (vladimir "Vladimir Ivanovic" "vladimir@mri.com")
91 (wing "Ben Wing" "wing@xemacs.org") 92 (wing "Ben Wing" "ben@xemacs.org")
92 (wmperry "William Perry" "wmperry@aventail.com")) 93 (wmperry "William Perry" "wmperry@aventail.com"))
93 "Alist of XEmacs hackers.") 94 "Alist of XEmacs hackers.")
94 95
95 ;; The CAR of alist elements is a valid argument to `about-url-link'. 96 ;; The CAR of alist elements is a valid argument to `about-url-link'.
96 ;; It is preferred to a simple string, because it makes maintenance 97 ;; It is preferred to a simple string, because it makes maintenance
984 busy with studies at the university and consulting work. 985 busy with studies at the university and consulting work.
985 986
986 See: ") 987 See: ")
987 (about-url-link 'jason "Visit Jason's homepage") 988 (about-url-link 'jason "Visit Jason's homepage")
988 (widget-insert ".\n")) 989 (widget-insert ".\n"))
990 (jmiller
991 (widget-inset "\
992 Jeff grew up in Indiana and is a country boy at heart. He currently lives
993 in, of all places, Millersville Maryland. He spends a lot of his free
994 time tinkering with Linux and hacking on XEmacs and loves it when he finds
995 new cool features in either. When he's not doing that, he enjoys downhill
996 skiing, puzzles, and sci-fi. Jeff is also really interested in classical
997 Roman history and enjoys making trips to Italy, where he was born, and
998 seeing the sights")
999 (widget-insert ".\n"))
989 )) 1000 ))
990 1001
991 ;; Setup the buffer for a maintainer. 1002 ;; Setup the buffer for a maintainer.
992 (defun about-maintainer (widget &optional event) 1003 (defun about-maintainer (widget &optional event)
993 (let* ((entry (assq (widget-value widget) xemacs-hackers)) 1004 (let* ((entry (assq (widget-value widget) xemacs-hackers))
1191 (about-show-linked-info 'juhp "\ 1202 (about-show-linked-info 'juhp "\
1192 Author of \"find-func.el\".\n") 1203 Author of \"find-func.el\".\n")
1193 (about-show-linked-info 'jason "\ 1204 (about-show-linked-info 'jason "\
1194 Beta tester and manager of the various XEmacs mailing lists. 1205 Beta tester and manager of the various XEmacs mailing lists.
1195 Originator and maintainer of the gnus.org domain.\n") 1206 Originator and maintainer of the gnus.org domain.\n")
1207 (about-show-linked-info 'jmiller "\
1208 Beta tester and last hacker of calendar.\n")
1196 (flet ((print-short (name addr &optional shortinfo) 1209 (flet ((print-short (name addr &optional shortinfo)
1197 (concat (about-with-face name 'italic) 1210 (concat (about-with-face name 'italic)
1198 (about-tabs name) 1211 (about-tabs name)
1199 "<" addr ">\n" 1212 "<" addr ">\n"
1200 (if shortinfo (concat shortinfo "\n") "")))) 1213 (if shortinfo (concat shortinfo "\n") ""))))
1233 Telco's in Australia. In my spare time I like to get back to basics and 1246 Telco's in Australia. In my spare time I like to get back to basics and
1234 muck around with things. As a result I started the NT port. Hopefully I 1247 muck around with things. As a result I started the NT port. Hopefully I
1235 will get to finish it sometime sooner rather than later. I do vaguely 1248 will get to finish it sometime sooner rather than later. I do vaguely
1236 remember University where it seems like I had more spare time that I can 1249 remember University where it seems like I had more spare time that I can
1237 believe now. Oh well, such is life.\n") 1250 believe now. Oh well, such is life.\n")
1251 (print-short "Jonathan Harris" "jhar@tardis.ed.ac.uk" "\
1252 Manages the team responsible for the EPOC kernel at Symbian Ltd. Started
1253 the mswindows native-GUI port of XEmacs because he felt lost using
1254 Microsoft Windows without a real editor.\n")
1238 (print-short "Michael R. Cook" "mcook@cognex.com" "\ 1255 (print-short "Michael R. Cook" "mcook@cognex.com" "\
1239 Author of the \"shy groups\" and minimal matching regular expression 1256 Author of the \"shy groups\" and minimal matching regular expression
1240 extensions.\n") 1257 extensions.\n")
1241 "\n\ 1258 "\n\
1242 In addition to those just mentioned, the following people have spent a 1259 In addition to those just mentioned, the following people have spent a
1328 (print-short "Adam Hammer" "hammer@cs.purdue.edu") 1345 (print-short "Adam Hammer" "hammer@cs.purdue.edu")
1329 (print-short "Magnus Hammerin" "magnush@epact.se") 1346 (print-short "Magnus Hammerin" "magnush@epact.se")
1330 (print-short "ChangGil Han" "cghan@phys401.phys.pusan.ac.kr") 1347 (print-short "ChangGil Han" "cghan@phys401.phys.pusan.ac.kr")
1331 (print-short "Derek Harding" "dharding@lssec.bt.co.uk") 1348 (print-short "Derek Harding" "dharding@lssec.bt.co.uk")
1332 (print-short "Michael Harnois" "mharnois@sbt.net") 1349 (print-short "Michael Harnois" "mharnois@sbt.net")
1333 (print-short "Jonathan Harris" "jhar@tardis.ed.ac.uk")
1334 (print-short "John Haxby" "J.Haxby@isode.com") 1350 (print-short "John Haxby" "J.Haxby@isode.com")
1335 (print-short "Karl M. Hegbloom" "karlheg@inetarena.com") 1351 (print-short "Karl M. Hegbloom" "karlheg@inetarena.com")
1336 (print-short "Benedikt Heinen" "beh@icemark.thenet.ch") 1352 (print-short "Benedikt Heinen" "beh@icemark.thenet.ch")
1337 (print-short "Stephan Herrmann" "sh@first.gmd.de") 1353 (print-short "Stephan Herrmann" "sh@first.gmd.de")
1338 (print-short "August Hill" "awhill@inlink.com") 1354 (print-short "August Hill" "awhill@inlink.com")
1340 (print-short "Charles Hines" "chuck_hines@VNET.IBM.COM") 1356 (print-short "Charles Hines" "chuck_hines@VNET.IBM.COM")
1341 (print-short "Shane Holder" "holder@rsn.hp.com") 1357 (print-short "Shane Holder" "holder@rsn.hp.com")
1342 (print-short "Chris Holt" "xris@migraine.stanford.edu") 1358 (print-short "Chris Holt" "xris@migraine.stanford.edu")
1343 (print-short "Tetsuya HOYANO" "hoyano@ari.bekkoame.or.jp") 1359 (print-short "Tetsuya HOYANO" "hoyano@ari.bekkoame.or.jp")
1344 (print-short "David Hughes" "djh@harston.cv.com") 1360 (print-short "David Hughes" "djh@harston.cv.com")
1361 (print-short "Tudor Hulubei" "tudor@cs.unh.edu")
1345 (print-short "Tatsuya Ichikawa" "ichikawa@hv.epson.co.jp") 1362 (print-short "Tatsuya Ichikawa" "ichikawa@hv.epson.co.jp")
1346 (print-short "Andrew Innes" "andrewi@harlequin.co.uk") 1363 (print-short "Andrew Innes" "andrewi@harlequin.co.uk")
1347 (print-short "Andreas Jaeger" "aj@arthur.rhein-neckar.de") 1364 (print-short "Andreas Jaeger" "aj@arthur.rhein-neckar.de")
1348 (print-short "Markku Jarvinen" "Markku.Jarvinen@simpukka.funet.fi") 1365 (print-short "Markku Jarvinen" "Markku.Jarvinen@simpukka.funet.fi")
1349 (print-short "Robin Jeffries" "robin.jeffries@sun.com") 1366 (print-short "Robin Jeffries" "robin.jeffries@sun.com")