Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 243:f220cc83d72e r20-5b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b20
author cvs
date Mon, 13 Aug 2007 10:17:07 +0200
parents 52952cbfc5b5
children 51092a27c943
comparison
equal deleted inserted replaced
242:fc816b73a05f 243:f220cc83d72e
62 (dmoore "David Moore" "dmoore@ucsd.edu") 62 (dmoore "David Moore" "dmoore@ucsd.edu")
63 (dkindred "Darrell Kindred" "dkindred@cmu.edu") 63 (dkindred "Darrell Kindred" "dkindred@cmu.edu")
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" "jhod@camelot-soft.com") 66 (jareth "Jareth Hein" "jhod@camelot-soft.com")
67 (jason "Jason Mastaler" "jason@mastaler.com")
67 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de") 68 (jens "Jens Lautenbacher" "jens@lemcbed.lem.uni-karlsruhe.de")
68 (juhp "Jens-Ulrik Holger Petersen" "petersen@kurims.kyoto-u.ac.jp") 69 (juhp "Jens-Ulrik Holger Petersen" "petersen@kurims.kyoto-u.ac.jp")
69 (jwz "Jamie Zawinski" "jwz@netscape.com") 70 (jwz "Jamie Zawinski" "jwz@netscape.com")
70 (kazz "IENAGA Kazuyuki" "ienaga@jsys.co.jp") 71 (kazz "IENAGA Kazuyuki" "ienaga@jsys.co.jp")
71 (kyle "Kyle Jones" "kyle_jones@wonderworks.com") 72 (kyle "Kyle Jones" "kyle_jones@wonderworks.com")
98 (altrasoft . "http://www.altrasoft.com/") 99 (altrasoft . "http://www.altrasoft.com/")
99 (baw . "http://www.python.org/~bwarsaw/") 100 (baw . "http://www.python.org/~bwarsaw/")
100 (cc-mode . "http://www.python.org/ftp/emacs/") 101 (cc-mode . "http://www.python.org/ftp/emacs/")
101 (dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html") 102 (dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html")
102 (dmoore . "http://oj.egbt.org/dmoore/") 103 (dmoore . "http://oj.egbt.org/dmoore/")
104 (jason . "http://www.mastaler.com/")
103 (juhp . "http://www.kurims.kyoto-u.ac.jp/~petersen/") 105 (juhp . "http://www.kurims.kyoto-u.ac.jp/~petersen/")
104 (jwz . "http://people.netscape.com/jwz/") 106 (jwz . "http://people.netscape.com/jwz/")
105 (kazz . "http://www.imasy.or.jp/~kazz/") 107 (kazz . "http://www.imasy.or.jp/~kazz/")
106 (kyle . "http://www.wonderworks.com/kyle/") 108 (kyle . "http://www.wonderworks.com/kyle/")
107 (larsi . "http://www.ifi.uio.no/~larsi/") 109 (larsi . "http://www.ifi.uio.no/~larsi/")
962 groups). Though now I seem to be heading for other things. 964 groups). Though now I seem to be heading for other things.
963 965
964 My homepage is ") 966 My homepage is ")
965 (about-url-link 'juhp "Visit Jens' homepage") 967 (about-url-link 'juhp "Visit Jens' homepage")
966 (widget-insert ".\n")) 968 (widget-insert ".\n"))
967 969 (jason
970 (widget-insert "\
971 Beta tester and manager of the various XEmacs mailing lists.
972 Originator and maintainer of the gnus.org domain.
973
974 Jason resides in Albuquerque, New Mexico where he keeps himself
975 busy with studies at the university and consulting work.
976
977 See: ")
978 (about-url-link 'jason "Visit Jason's homepage")
979 (widget-insert ".\n"))
968 )) 980 ))
969 981
970 ;; Setup the buffer for a maintainer. 982 ;; Setup the buffer for a maintainer.
971 (defun about-maintainer (widget &optional event) 983 (defun about-maintainer (widget &optional event)
972 (let* ((entry (assq (widget-value widget) xemacs-hackers)) 984 (let* ((entry (assq (widget-value widget) xemacs-hackers))
1158 (about-show-linked-info 'ograf "\ 1170 (about-show-linked-info 'ograf "\
1159 Is currently working on the integration of OffiX and CDE drag-and-drop 1171 Is currently working on the integration of OffiX and CDE drag-and-drop
1160 into the event system of XEmacs.\n") 1172 into the event system of XEmacs.\n")
1161 (about-show-linked-info 'juhp "\ 1173 (about-show-linked-info 'juhp "\
1162 Author of \"find-func.el\".\n") 1174 Author of \"find-func.el\".\n")
1175 (about-show-linked-info 'jason "\
1176 Beta tester and manager of the various XEmacs mailing lists.
1177 Originator and maintainer of the gnus.org domain.\n")
1163 (flet ((print-short (name addr &optional shortinfo) 1178 (flet ((print-short (name addr &optional shortinfo)
1164 (concat (about-with-face name 'italic) 1179 (concat (about-with-face name 'italic)
1165 (about-tabs name) 1180 (about-tabs name)
1166 "<" addr ">\n" 1181 "<" addr ">\n"
1167 (if shortinfo (concat shortinfo "\n") "")))) 1182 (if shortinfo (concat shortinfo "\n") ""))))