Mercurial > hg > xemacs-beta
comparison lisp/prim/about.el @ 62:28a7c63c7e1e r19-16-pre6
Import from CVS: tag r19-16-pre6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:59:13 +0200 |
parents | 8b0bdfdf0cf0 |
children | a01e7a40045c |
comparison
equal
deleted
inserted
replaced
61:dd3566f69ebd | 62:28a7c63c7e1e |
---|---|
78 (set (make-local-variable 'tab-width) 8) | 78 (set (make-local-variable 'tab-width) 8) |
79 (setq buffer-read-only t) | 79 (setq buffer-read-only t) |
80 (view-mode nil 'kill-buffer) ;; assume the new view-less | 80 (view-mode nil 'kill-buffer) ;; assume the new view-less |
81 (let* ((buffer-read-only nil) | 81 (let* ((buffer-read-only nil) |
82 (emacs-short-version (concat emacs-major-version "." emacs-minor-version)) | 82 (emacs-short-version (concat emacs-major-version "." emacs-minor-version)) |
83 (emacs-about-version (format "version %s; September 1997" emacs-short-version)) | 83 (emacs-about-version (format "version %s; October 1997" emacs-short-version)) |
84 (indent-tabs-mode t) | 84 (indent-tabs-mode t) |
85 ) | 85 ) |
86 (erase-buffer) | 86 (erase-buffer) |
87 (insert "\n") | 87 (insert "\n") |
88 (indent-to (startup-center-spaces xemacs-logo)) | 88 (indent-to (startup-center-spaces xemacs-logo)) |
157 (save-excursion | 157 (save-excursion |
158 (set-buffer (get-buffer-create "About XEmacs")) | 158 (set-buffer (get-buffer-create "About XEmacs")) |
159 (toggle-read-only 0) | 159 (toggle-read-only 0) |
160 | 160 |
161 (let ((rest (if who-to-load (list who-to-load) | 161 (let ((rest (if who-to-load (list who-to-load) |
162 '(steve mrb cthomp wing stig jwz mly vladimir baw piper bw wmperry kyle larsi jens vin))) | 162 '(steve mrb cthomp wing stig jwz mly vladimir baw piper bw wmperry kyle larsi jens vin dkindred))) |
163 (got-error nil)) | 163 (got-error nil)) |
164 (while rest | 164 (while rest |
165 (let* ((who (car rest)) | 165 (let* ((who (car rest)) |
166 (who-xpm (expand-file-name | 166 (who-xpm (expand-file-name |
167 (concat (symbol-name who) | 167 (concat (symbol-name who) |
238 (w3-jamie . "http://www.netscape.com/people/jwz/") | 238 (w3-jamie . "http://www.netscape.com/people/jwz/") |
239 (w3-baw . "http://www.python.org/~bwarsaw/") | 239 (w3-baw . "http://www.python.org/~bwarsaw/") |
240 (w3-python . "http://www.python.org/ftp/emacs/") | 240 (w3-python . "http://www.python.org/ftp/emacs/") |
241 (w3-infodock . "http://www.infodock.com") | 241 (w3-infodock . "http://www.infodock.com") |
242 (w3-kyle . "http://www.wonderworks.com/kyle/") | 242 (w3-kyle . "http://www.wonderworks.com/kyle/") |
243 (w3-dkindred . "http://www.cs.cmu.edu/People/dkindred/me.html") | |
243 (w3-larsi . "http://www.ifi.uio.no/~larsi/") | 244 (w3-larsi . "http://www.ifi.uio.no/~larsi/") |
244 (w3-hrvoje . "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/") | 245 (w3-hrvoje . "ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/") |
245 (w3-upa . "http://www.upa.org") | 246 (w3-upa . "http://www.upa.org") |
246 ;; add more here | 247 ;; add more here |
247 ) | 248 ) |
308 ((eq xref 'mrb) "About Martin Buchholz") | 309 ((eq xref 'mrb) "About Martin Buchholz") |
309 ((eq xref 'kyle) "About Kyle Jones") | 310 ((eq xref 'kyle) "About Kyle Jones") |
310 ((eq xref 'larsi) "About Lars Magne Ingebrigtsen") | 311 ((eq xref 'larsi) "About Lars Magne Ingebrigtsen") |
311 ((eq xref 'jens) "About Jens Lautenbacher") | 312 ((eq xref 'jens) "About Jens Lautenbacher") |
312 ((eq xref 'vin) "About Vin Shelton") | 313 ((eq xref 'vin) "About Vin Shelton") |
314 ((eq xref 'dkindred) "About Darrell Kindred") | |
313 ((eq xref 'others) "About Everyone") | 315 ((eq xref 'others) "About Everyone") |
314 ((eq xref 'features) "New XEmacs Features") | 316 ((eq xref 'features) "New XEmacs Features") |
315 ((eq xref 'history) "XEmacs History") | 317 ((eq xref 'history) "XEmacs History") |
316 (t (error "Can't follow xref: %s" xref)) | 318 (t (error "Can't follow xref: %s" xref)) |
317 ))) | 319 ))) |
839 (insert ".\n\n\tClick ") | 841 (insert ".\n\n\tClick ") |
840 (about-xref "here" prev-page "Return to previous page") | 842 (about-xref "here" prev-page "Return to previous page") |
841 (insert " to go back to the previous page.\n") | 843 (insert " to go back to the previous page.\n") |
842 ) | 844 ) |
843 | 845 |
846 ((eq xref 'dkindred) | |
847 (about-face "Darrell Kindred" 'bold) | |
848 (insert " <dkindred@cmu.edu> | |
849 | |
850 Darrell tends to come out of the woodwork a couple of weeks | |
851 before a new release with a flurry of fixes for bugs that | |
852 annoy him. He hopes he's spared you from a core dump or two. | |
853 | |
854 Darrell is currently a doctoral student in computer science at | |
855 Carnegie Mellon University, but he's trying hard to kick that | |
856 habit. | |
857 | |
858 See ") | |
859 (about-xref "http://www.cs.cmu.edu/People/dkindred/me.html" | |
860 'w3-dkindred "Visit Darrell's WWW page") | |
861 (insert ".\n\n\tClick ") | |
862 (about-xref "here" prev-page "Return to previous page") | |
863 (insert " to go back to the previous page.\n") | |
864 ) | |
865 | |
844 ((eq xref 'others) | 866 ((eq xref 'others) |
845 (insert "Click ") | 867 (insert "Click ") |
846 (about-xref "here" 'about "Return to previous page") | 868 (about-xref "here" 'about "Return to previous page") |
847 (insert " to go back to the previous page\n\n\t") | 869 (insert " to go back to the previous page\n\n\t") |
848 | 870 |
942 ") (about-xref "Vin Shelton" 'vin "Find out more about Vin Shelton") (insert " <acs@acm.org> | 964 ") (about-xref "Vin Shelton" 'vin "Find out more about Vin Shelton") (insert " <acs@acm.org> |
943 Vin maintains the XEmacs patch pages. Vin also contributed the | 965 Vin maintains the XEmacs patch pages. Vin also contributed the |
944 detached minibuffer code, as well as a few minor enhancements to | 966 detached minibuffer code, as well as a few minor enhancements to |
945 the menubar options. | 967 the menubar options. |
946 | 968 |
947 Darrell Kindred <Darrell.Kindred@cmu.edu> | 969 ") (about-xref "Darrell Kindred" 'dkindred "Find out more about Darrell Kindred") (insert " <dkindred@cmu.edu> |
948 Unofficial maintainer of the xemacs-beta list of extant | 970 Long-time bug tracker and exterminator for XEmacs and |
949 bugs and contributor of an extraordinary number of | 971 Lucid Emacs. |
950 important bug fixes, many of them in areas that neither | |
951 Chuck nor Ben was particularly enthusiastic about | |
952 investigating. | |
953 | 972 |
954 Eduardo Pelegri-Llopart <pelegri@eng.sun.com> | 973 Eduardo Pelegri-Llopart <pelegri@eng.sun.com> |
955 Author of EOS, a package included in the standard XEmacs | 974 Author of EOS, a package included in the standard XEmacs |
956 distribution that integrates XEmacs with the SPARCworks | 975 distribution that integrates XEmacs with the SPARCworks |
957 development environment from SunPro. Past lead for XEmacs | 976 development environment from SunPro. Past lead for XEmacs |
982 John Rose <john.rose@sun.com> | 1001 John Rose <john.rose@sun.com> |
983 Author of many extensions to the `extents' code, including | 1002 Author of many extensions to the `extents' code, including |
984 the initial implementation of `duplicable' properties. | 1003 the initial implementation of `duplicable' properties. |
985 | 1004 |
986 Hans Muller <hmuller@eng.sun.com> | 1005 Hans Muller <hmuller@eng.sun.com> |
987 Author of the code used to connect XEmacs with ToolTalk, | 1006 Author of the code used to connect XEmacs with ToolTalk, |
988 and of an early client of the external Emacs widget. | 1007 and of an early client of the external Emacs widget. |
989 | 1008 |
990 David Moore <dmoore@UCSD.EDU> | 1009 David Moore <dmoore@UCSD.EDU> |
991 David has contributed greatly to the quest to speed up XEmacs. | 1010 David has contributed greatly to the quest to speed up XEmacs. |
992 He is a student in the Computer Systems Laboratory at UCSD. | 1011 He is a student in the Computer Systems Laboratory at UCSD. |
993 When he manages to have free time, he usually spends it on 200 | 1012 When he manages to have free time, he usually spends it on 200 |