Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78478c60bfcd
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
193 (defun about-xemacs () 193 (defun about-xemacs ()
194 "Describe the True Editor and its minions." 194 "Describe the True Editor and its minions."
195 (interactive) 195 (interactive)
196 (unless (about-get-buffer "*About XEmacs*") 196 (unless (about-get-buffer "*About XEmacs*")
197 (widget-insert (about-center xemacs-logo)) 197 (widget-insert (about-center xemacs-logo))
198 (widget-create 'default :format "%t" :tag-glyph xemacs-logo) 198 (widget-create 'default
199 :format "%t"
200 :tag-glyph xemacs-logo)
199 (widget-insert "\n") 201 (widget-insert "\n")
200 (let* ((emacs-short-version (concat emacs-major-version 202 (let* ((emacs-short-version (concat emacs-major-version
201 "." emacs-minor-version)) 203 "." emacs-minor-version))
202 (emacs-about-version (format "version %s; Jan 1998" 204 (emacs-about-version (format "version %s; Jan 1998"
203 emacs-short-version))) 205 emacs-short-version)))
544 (error (setq data 'error))) 546 (error (setq data 'error)))
545 (setq file nil))) 547 (setq file nil)))
546 (setq glyph 548 (setq glyph
547 (cond ((stringp data) 549 (cond ((stringp data)
548 (make-glyph 550 (make-glyph
549 (list (vector 'xpm :data data) 551 (if (featurep 'xpm)
550 (vector 'string :data "[Image]")))) 552 `([xpm :data ,data]
553 [string :data "[Image]"])
554 `([string :data "[Image]"]))))
551 ((eq data 'error) 555 ((eq data 'error)
552 (make-glyph [string :data "[Error]"])) 556 (make-glyph [string :data "[Error]"]))
553 (file 557 (file
554 (make-glyph 558 (make-glyph
555 (list (vector 'xpm :file file) 559 (if (featurep 'xbm)
556 (vector 'string :data "[Image]")))) 560 `([xbm :data ,data]
561 [string :data "[Image]"])
562 `([string :data "[Image]"]))))
557 (t 563 (t
558 (make-glyph [nothing])))) 564 (make-glyph [nothing]))))
559 (set-glyph-property glyph 'baseline 100) 565 (set-glyph-property glyph 'baseline 100)
560 ;; Cache the glyph 566 ;; Cache the glyph
561 (push (cons who glyph) about-glyphs))) 567 (push (cons who glyph) about-glyphs)))
1301 (print-short "Steve March" "smarch@quaver.urbana.mcd.mot.com") 1307 (print-short "Steve March" "smarch@quaver.urbana.mcd.mot.com")
1302 (print-short "Ricardo Marek" "ricky@ornet.co.il") 1308 (print-short "Ricardo Marek" "ricky@ornet.co.il")
1303 (print-short "Pekka Marjola" "pema@iki.fi") 1309 (print-short "Pekka Marjola" "pema@iki.fi")
1304 (print-short "Simon Marshall" "simon@gnu.ai.mit.edu") 1310 (print-short "Simon Marshall" "simon@gnu.ai.mit.edu")
1305 (print-short "Dave Mason" "dmason@plg.uwaterloo.ca") 1311 (print-short "Dave Mason" "dmason@plg.uwaterloo.ca")
1312 (print-short "Jason R Mastaler" "jason@4b.org")
1306 (print-short "Jaye Mathisen" "mrcpu@cdsnet.net") 1313 (print-short "Jaye Mathisen" "mrcpu@cdsnet.net")
1307 (print-short "Jason McLaren" "mclaren@math.mcgill.ca") 1314 (print-short "Jason McLaren" "mclaren@math.mcgill.ca")
1308 (print-short "Michael McNamara" "mac@silicon-sorcery.com") 1315 (print-short "Michael McNamara" "mac@silicon-sorcery.com")
1309 (print-short "Michael Meissner" "meissner@osf.org") 1316 (print-short "Michael Meissner" "meissner@osf.org")
1310 (print-short "David M. Meyer" "meyer@ns.uoregon.edu") 1317 (print-short "David M. Meyer" "meyer@ns.uoregon.edu")
1351 (print-short "Darrel Schneider" "darrel@slc.com") 1358 (print-short "Darrel Schneider" "darrel@slc.com")
1352 (print-short "Hayden Schultz" "haydens@ll.mit.edu") 1359 (print-short "Hayden Schultz" "haydens@ll.mit.edu")
1353 (print-short "Cotton Seed" "cottons@cybercom.net") 1360 (print-short "Cotton Seed" "cottons@cybercom.net")
1354 (print-short "Axel Seibert" "seiberta@informatik.tu-muenchen.de") 1361 (print-short "Axel Seibert" "seiberta@informatik.tu-muenchen.de")
1355 (print-short "Odd-Magne Sekkingstad" "oddms@ii.uib.no") 1362 (print-short "Odd-Magne Sekkingstad" "oddms@ii.uib.no")
1363 (print-short "Justin Sheehy" "justin@linus.mitre.org")
1356 (print-short "John Shen" "zfs60@cas.org") 1364 (print-short "John Shen" "zfs60@cas.org")
1357 (print-short "Murata Shuuichirou" "mrt@mickey.ai.kyutech.ac.jp") 1365 (print-short "Murata Shuuichirou" "mrt@mickey.ai.kyutech.ac.jp")
1358 (print-short "Matt Simmons" "simmonmt@acm.org") 1366 (print-short "Matt Simmons" "simmonmt@acm.org")
1359 (print-short "Dinesh Somasekhar" "somasekh@ecn.purdue.edu") 1367 (print-short "Dinesh Somasekhar" "somasekh@ecn.purdue.edu")
1360 (print-short "Jeffrey Sparkes" "jsparkes@bnr.ca") 1368 (print-short "Jeffrey Sparkes" "jsparkes@bnr.ca")