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

comparison lisp/prim/about.el @ 32:e04119814345 r19-15b99

Import from CVS: tag r19-15b99

author	cvs
date	Mon, 13 Aug 2007 08:52:56 +0200
parents	ec9a17fef872
children	1a767b41a199

comparison

equal deleted inserted replaced

-:b9328a10c56c
+:e04119814345
 (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))
+;; This is losing badly to a redisplay glitch, and it doesn't scale up.
-(insert "\n   ")
+;  (goto-char (point-max))
-(let ((rest '(steve mrb cthomp wing stig linebreak jwz mly vladimir linebreak baw piper bw linebreak wmperry kyle larsi))
+;  (insert "\n   ")
-	(got-error nil))
-(while rest
+;  (let ((rest '(steve mrb cthomp wing stig linebreak jwz mly vladimir linebreak baw piper bw linebreak wmperry kyle larsi jens))
-(if (eq (car rest) 'linebreak)
+;	(got-error nil))
-	  (insert "\n\n  ")
+;    (while rest
-	(let* ((who (car rest))
+;      (if (eq (car rest) 'linebreak)
-	       (b (get-buffer "About XEmacs"))
+;	  (insert "\n\n  ")
-	       (p (symbol-value-in-buffer who b nil)))
+;	(let* ((who (car rest))
-	  (or (glyphp p) (setq p nil))
+;	       (b (get-buffer "About XEmacs"))
-	  (and p
+;	       (p (symbol-value-in-buffer who b nil)))
-	       (let ((e (make-extent (point) (point))))
+;	  (or (glyphp p) (setq p nil))
-		 (set-extent-begin-glyph e p)
+;	  (and p
-		 (set-extent-property e 'keymap about-xref-map)
+;	       (let ((e (make-extent (point) (point))))
-		 (set-extent-property e 'xref who)))
+;		 (set-extent-begin-glyph e p)
-	  (insert " ")
+;		 (set-extent-property e 'keymap about-xref-map)
-	  (sit-for 0)))
+;		 (set-extent-property e 'xref who)))
-(setq rest (cdr rest)))
+;	  (insert " ")
-(insert "\n")
+;	  (sit-for 0)))
-(goto-char (point-min))
+;      (setq rest (cdr rest)))
-(or got-error (message nil)))
+;    (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)))
 			       ((eq xref 'stig) "About Jonathan Stigelman")
 			       ((eq xref 'steve) "About Steve Baur")
 			       ((eq xref 'mrb) "About Martin Buchholz")
 			       ((eq xref 'kyle) "About Kyle Jones")
 			       ((eq xref 'larsi) "About Lars Magne Ingebrigtsen")
+			       ((eq xref 'jens) "About Jens Lautenbacher")
 			       ((eq xref 'others) "About Everyone")
 			       ((eq xref 'features) "New XEmacs Features")
 			       ((eq xref '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

Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 32:e04119814345 r19-15b99