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