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