Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children 489f57a838ef
comparison
equal deleted inserted replaced
186:24ac94803b48 187:b405438285a2
1 ;;; about.el --- the About The Authors page (shameless self promotion). 1 ;;; about.el --- the About The Authors page (shameless self promotion).
2 2
3 ;; Copyright (c) 1997 Free Software Foundation, Inc. 3 ;; Copyright (c) 1997 Free Software Foundation, Inc.
4 4
5 ;; Keywords: extensions 5 ;; Keywords: extensions
6 ;; Version: 2.3 6 ;; Version: 2.4
7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr> 7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
150 (widget-create 'link :help-echo "Kill buffer" 150 (widget-create 'link :help-echo "Kill buffer"
151 :action (lambda (&rest ignore) 151 :action (lambda (&rest ignore)
152 (bury-buffer)) 152 (bury-buffer))
153 "Kill")) 153 "Kill"))
154 (widget-insert " this buffer.\n") 154 (widget-insert " this buffer.\n")
155 (use-local-map (let ((map (make-sparse-keymap))) 155 (use-local-map (make-sparse-keymap))
156 (set-keymap-parent map widget-keymap) 156 (set-keymap-parent (current-local-map) widget-keymap)
157 map))
158 (if (eq type 'bury) 157 (if (eq type 'bury)
159 (progn 158 (progn
160 (local-set-key "q" 'bury-buffer) 159 (local-set-key "q" 'bury-buffer)
161 (local-set-key "l" 'bury-buffer)) 160 (local-set-key "l" 'bury-buffer))
162 (let ((dispose (lambda () (interactive) (kill-buffer (current-buffer))))) 161 (let ((dispose (lambda () (interactive) (kill-buffer (current-buffer)))))
184 (widget-insert (about-center xemacs-logo)) 183 (widget-insert (about-center xemacs-logo))
185 (widget-create 'default :format "%t" :tag-glyph xemacs-logo) 184 (widget-create 'default :format "%t" :tag-glyph xemacs-logo)
186 (widget-insert "\n") 185 (widget-insert "\n")
187 (let* ((emacs-short-version (concat emacs-major-version 186 (let* ((emacs-short-version (concat emacs-major-version
188 "." emacs-minor-version)) 187 "." emacs-minor-version))
189 (emacs-about-version (format "version %s; Oct 1997" 188 (emacs-about-version (format "version %s; Jan 1998"
190 emacs-short-version))) 189 emacs-short-version)))
191 (widget-insert (about-center emacs-about-version)) 190 (widget-insert (about-center emacs-about-version))
192 (widget-create 'link :help-echo "The latest NEWS of XEmacs" 191 (widget-create 'link :help-echo "The latest NEWS of XEmacs"
193 :action 'about-news 192 :action 'about-news
194 emacs-about-version)) 193 emacs-about-version))
548 I took over the maintenance of XEmacs in November of 1996 (it 547 I took over the maintenance of XEmacs in November of 1996 (it
549 seemed like a good idea at the time ...). In real life I am a 548 seemed like a good idea at the time ...). In real life I am a
550 network administrator and Unix systems programmer for Calag.com, 549 network administrator and Unix systems programmer for Calag.com,
551 Inc. a small, but growing ISP in California. 550 Inc. a small, but growing ISP in California.
552 551
553 My main contributions to XEmacs have been reviving the FAQ, 552 My main hobby while not maintaining XEmacs or working is ...
554 testing and integrating patches, tracking down and fixing bugs, and 553 you have got to be kidding ...")
555 answering hundreds of questions on Usenet.
556
557 Is that my picture? I believe I already answered that in
558 xemacs-beta-discuss ...")
559 (widget-insert ".\n")) 554 (widget-insert ".\n"))
560 (mrb 555 (mrb
561 (widget-insert "\ 556 (widget-insert "\
562 Martin is the XEmacs guy at DevPro, a part of Sun Microsystems. 557 Martin is the XEmacs guy at DevPro, a part of Sun Microsystems.
563 Martin used to do XEmacs as a `hobby' while at IBM, and was crazy 558 Martin used to do XEmacs as a `hobby' while at IBM, and was crazy
1018 Author of many extensions to the `extents' code, including the initial 1013 Author of many extensions to the `extents' code, including the initial
1019 implementation of `duplicable' properties.\n") 1014 implementation of `duplicable' properties.\n")
1020 (print-short "Hans Muller" "hmuller@eng.sun.com" "\ 1015 (print-short "Hans Muller" "hmuller@eng.sun.com" "\
1021 Author of the code used to connect XEmacs with ToolTalk, and of an 1016 Author of the code used to connect XEmacs with ToolTalk, and of an
1022 early client of the external Emacs widget.\n") 1017 early client of the external Emacs widget.\n")
1023 1018 (print-short "Didier Verna" "verna@inf.enst.fr" "\
1019 I'm currently working (Ph.D.) on the cognitive aspects of
1020 Human-Machine Interaction in Virtual Environments, and especialy on
1021 the possibility of adding (artificial) intelligence between the system
1022 and the operator, in order to detect the intentions of the latter.
1023
1024 Otherwise, I'm, say, 35.82% professional Jazz guitar player,
1025 which means that's not the way I earn my crust, but things may very
1026 well reverse in the future ...\n")
1024 "\n\ 1027 "\n\
1025 In addition to those just mentioned, the following people have spent a 1028 In addition to those just mentioned, the following people have spent a
1026 great deal of effort providing feedback, testing beta versions of 1029 great deal of effort providing feedback, testing beta versions of
1027 XEmacs, providing patches to the source code, or doing all of the 1030 XEmacs, providing patches to the source code, or doing all of the
1028 above. We couldn't have done it without them.\n\n" 1031 above. We couldn't have done it without them.\n\n"