xemacs-beta: lisp/prim/about.el comparison

comparison lisp/prim/about.el @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7

author	cvs
date	Mon, 13 Aug 2007 09:19:45 +0200
parents	360340f9fd5f
children	8619ce7e4c50

comparison

equal deleted inserted replaced

-:e183fc049578
+:fe104dbd9147
 (save-excursion
 (set-buffer (get-buffer-create "About XEmacs"))
 (toggle-read-only 0)
 (let ((rest (if who-to-load (list who-to-load)
-		  '(steve mrb cthomp wing stig jwz mly vladimir baw piper bw wmperry kyle larsi)))
+		  '(steve mrb cthomp wing stig jwz mly vladimir baw piper bw wmperry kyle larsi jens)))
 	  (got-error nil))
 (while rest
 	(let* ((who (car rest))
 	       (who-xpm (expand-file-name
 			 (concat (symbol-name who)
 (defun about-add-mosaic ()
 (goto-char (point-min))
 (about-load-mosaic)
 ;; HERE TO PLACE ADDITIONAL MUGSHOTS
+)
-(goto-char (point-max))
-(insert "\n   ")
+;; This is losing badly to a redisplay glitch, and it doesn't scale up.
-(let ((rest '(steve mrb cthomp wing stig linebreak jwz mly vladimir linebreak baw piper bw linebreak wmperry kyle larsi))
+;  (goto-char (point-max))
-	(got-error nil))
+;  (insert "\n   ")
-(while rest
-(if (eq (car rest) 'linebreak)
+;  (let ((rest '(steve mrb cthomp wing stig linebreak jwz mly vladimir linebreak baw piper bw linebreak wmperry kyle larsi jens))
-	  (insert "\n\n  ")
+;	(got-error nil))
-	(let* ((who (car rest))
+;    (while rest
-	       (b (get-buffer "About XEmacs"))
+;      (if (eq (car rest) 'linebreak)
-	       (p (symbol-value-in-buffer who b nil)))
+;	  (insert "\n\n  ")
-	  (or (glyphp p) (setq p nil))
+;	(let* ((who (car rest))
-	  (and p
+;	       (b (get-buffer "About XEmacs"))
-	       (let ((e (make-extent (point) (point))))
+;	       (p (symbol-value-in-buffer who b nil)))
-		 (set-extent-begin-glyph e p)
+;	  (or (glyphp p) (setq p nil))
-		 (set-extent-property e 'keymap about-xref-map)
+;	  (and p
-		 (set-extent-property e 'xref who)))
+;	       (let ((e (make-extent (point) (point))))
-	  (insert " ")
+;		 (set-extent-begin-glyph e p)
-	  (sit-for 0)))
+;		 (set-extent-property e 'keymap about-xref-map)
-(setq rest (cdr rest)))
+;		 (set-extent-property e 'xref who)))
-(insert "\n")
+;	  (insert " ")
-(goto-char (point-min))
+;	  (sit-for 0)))
-(or got-error (message nil)))
+;      (setq rest (cdr rest)))
-)
+;    (insert "\n")
+;    (goto-char (point-min))
+;    (or got-error (message nil)))
+;  )
 (defun about-xemacs-xref ()
 (interactive "@")
 (let* ((e (or current-mouse-event last-input-event))
 	 (extent (or (and (null e) (extent-at (point)))
 	  ('stig "About Jonathan Stigelman")
 	  ('steve "About Steve Baur")
 	  ('mrb "About Martin Buchholz")
 	  ('kyle "About Kyle Jones")
 	  ('larsi "About Lars Magne Ingebrigtsen")
+	  ('jens "About Jens Lautenbacher")
 	  ('others "About Everyone")
 	  ('features "New XEmacs Features")
 	  ('history "XEmacs History")
 	  )))
 (delete-other-windows)
 	  (insert "\n\n\tClick ")
 	  (about-xref "here" prev-page "Return to previous page")
 	  (insert " to go back to the previous page.\n")
 	  )
+	 ((eq xref 'jens)
+	  (about-face "Jens Lautenbacher" 'bold)
+	  (insert " <jens@lemcbed.lem.uni-karlsruhe.de>
+	Jens did the artwork for graphics added to XEmacs 20.1 and 19.15.
+	I'm currently working at the University of Karlsruhe, Germany
+	on getting my diploma thesis on Supersymmetry (uuh, that's
+	physics) done.  After that (and all the remaining exams) I'm
+	looking forward to make a living out of my hobbies --
+	computers (and graphics). But because I have no deadline for
+	the exams and XEmacs betas are released at a high rate this
+	may take some time...")
+	  (insert "\n\n\tClick ")
+	  (about-xref "here" prev-page "Return to previous page")
+	  (insert " to go back to the previous page.\n")
+	  )
 	 ((eq xref 'others)
 	  (insert "Click ")
 	  (about-xref "here" 'about "Return to previous page")
 	  (insert " to go back to the previous page\n\n\t")
 	Institute of Informatics at the University of Oslo.  He is
 	currently plumbing away at his majors work at the Institute of
 	Physics, working on an SCI project connected with CASCADE and
 	CERN and stuff.
 	See \"http://www.ifi.uio.no/~larsi/\"
+	") (about-xref "Jens Lautenbacher" 'jens "Find out more about Jens Lautenbacher") (insert " <jens@lemcbed.lem.uni-karlsruhe.de>
+	I'm currently working at the University of Karlsruhe, Germany
+	on getting my diploma thesis on Supersymmetry (uuh, that's
+	physics) done.  After that (and all the remaining exams) I'm
+	looking forward to make a living out of my hobbies --
+	computers (and graphics). But because I have no deadline for
+	the exams and XEmacs betas are released at a high rate this
+	may take some time...
 	Darrell Kindred <Darrell.Kindred@cmu.edu>
 	Unofficial maintainer of the xemacs-beta list of extant bugs
 	and contributor of an extraordinary number of important bug
 	fixes, many of them in areas that neither Chuck nor Ben were
 	  Yasuhiko Kiuchi <kiuchi@dsp.ksp.fujixerox.co.jp>
 	  Greg Klanderman <greg@alphatech.com>
 	  Valdis Kletnieks <Valdis.Kletnieks@vt.edu>
 	  Jens Krinke <krinke@ips.cs.tu-bs.de>
 	  Mats Larsson <Mats.Larsson@uab.ericsson.se>
-	  Jens Lautenbacher <jens@lemcbed.lem.uni-karlsruhe.de>
 	  Simon Leinen <simon@instrumatic.ch>
 	  Carsten Leonhardt <leo@arioch.tng.oche.de>
 	  James LewisMoss <moss@cs.sc.edu>
 	  Mats Lidell <mats.lidell@contactor.se>
 	  Matt Liggett <mliggett@seven.ucs.indiana.edu>

Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 110:fe104dbd9147 r20-1b7