Mercurial > hg > xemacs-beta
comparison lisp/about.el @ 5567:3bc58dc9d688
Replace #'flet by #'labels where appropriate, core code.
lisp/ChangeLog addition:
2011-09-07 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (transpose-subr):
* specifier.el (let-specifier):
* specifier.el (derive-device-type-from-tag-set):
* test-harness.el (batch-test-emacs):
* x-compose.el (alias-colon-to-doublequote):
* mule/chinese.el (make-chinese-cns11643-charset):
* mule/mule-cmds.el (set-locale-for-language-environment):
* mule/mule-cmds.el (set-language-environment-coding-systems):
* mule/mule-x-init.el (x-use-halfwidth-roman-font):
* about.el (about-xemacs):
* about.el (about-hackers):
* diagnose.el (show-memory-usage):
* diagnose.el (show-object-memory-usage-stats):
* diagnose.el (show-mc-alloc-memory-usage):
* diagnose.el (show-gc-stats):
* dialog.el (make-dialog-box):
* faces.el:
* faces.el (Face-frob-property):
* faces.el (set-face-stipple):
* glyphs.el:
* glyphs.el (init-glyphs): Removed.
* help-macro.el (make-help-screen):
* info.el (Info-construct-menu):
* keymap.el (key-sequence-list-description):
* lisp-mode.el (construct-lisp-mode-menu):
* loadhist.el (unload-feature):
* minibuf.el (get-user-response):
* mouse.el (default-mouse-track-check-for-activation):
* mouse.el (mouse-track-insert-1):
Follow my own advice from the last commit and use #'labels instead
of #'flet in core code.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 07 Sep 2011 21:21:36 +0100 |
parents | 308d34e9f07d |
children |
comparison
equal
deleted
inserted
replaced
5566:4654c01af32b | 5567:3bc58dc9d688 |
---|---|
465 firewalls) in order to work correctly. | 465 firewalls) in order to work correctly. |
466 | 466 |
467 XEmacs is the result of the time and effort of many people. The | 467 XEmacs is the result of the time and effort of many people. The |
468 developers responsible for this release are:\n\n") | 468 developers responsible for this release are:\n\n") |
469 | 469 |
470 (flet ((setup-person (who) | 470 (labels ((setup-person (who) |
471 (widget-insert "\t* ") | 471 (widget-insert "\t* ") |
472 (let* ((entry (assq who xemacs-hackers)) | 472 (let* ((entry (assq who xemacs-hackers)) |
473 (name (cadr entry)) | 473 (name (cadr entry)) |
474 (address (caddr entry))) | 474 (address (caddr entry))) |
475 (widget-create 'link | 475 (widget-create 'link |
476 :help-echo (concat "Find out more about " name) | 476 :help-echo (concat "Find out more about " name) |
477 :button-prefix "" | 477 :button-prefix "" |
478 :button-suffix "" | 478 :button-suffix "" |
479 :action 'about-maintainer | 479 :action 'about-maintainer |
480 :tag name | 480 :tag name |
481 :value who) | 481 :value who) |
482 (widget-insert (format " <%s>\n" address))))) | 482 (widget-insert (format " <%s>\n" address))))) |
483 ;; Setup persons responsible for this release. | 483 ;; Setup persons responsible for this release. |
484 (mapc 'setup-person about-current-release-maintainers) | 484 (mapc #'setup-person about-current-release-maintainers) |
485 (widget-insert "\n\t* ") | 485 (widget-insert "\n\t* ") |
486 (widget-create 'link :help-echo "A legion of XEmacs hackers" | 486 (widget-create 'link :help-echo "A legion of XEmacs hackers" |
487 :action 'about-hackers | 487 :action 'about-hackers |
488 :button-prefix "" | 488 :button-prefix "" |
489 :button-suffix "" | 489 :button-suffix "" |
2007 "\n" | 2007 "\n" |
2008 (about-with-face "Other notable once and future hackers:" | 2008 (about-with-face "Other notable once and future hackers:" |
2009 'about-headline-face) | 2009 'about-headline-face) |
2010 "\n\n") | 2010 "\n\n") |
2011 (mapc 'about-show-linked-info about-once-and-future-hackers) | 2011 (mapc 'about-show-linked-info about-once-and-future-hackers) |
2012 (flet ((print-short (name addr &optional shortinfo) | 2012 (labels ((print-short (name addr &optional shortinfo) |
2013 (widget-insert (concat (about-with-face name 'italic) | 2013 (widget-insert (concat (about-with-face name 'italic) |
2014 (about-tabs name) | 2014 (about-tabs name) "<")) |
2015 "<")) | 2015 (about-mailto-link addr) |
2016 (about-mailto-link addr) | 2016 (widget-insert |
2017 (widget-insert | 2017 (concat ">\n" (if shortinfo (concat shortinfo "\n") ""))))) |
2018 (concat ">\n" | |
2019 (if shortinfo (concat shortinfo "\n") ""))))) | |
2020 (widget-insert | 2018 (widget-insert |
2021 "\n\ | 2019 "\n\ |
2022 In addition to those just mentioned, the following people have spent a | 2020 In addition to those just mentioned, the following people have spent a |
2023 great deal of effort providing feedback, testing beta versions of | 2021 great deal of effort providing feedback, testing beta versions of |
2024 XEmacs, providing patches to the source code, or doing all of the | 2022 XEmacs, providing patches to the source code, or doing all of the |