Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/about.el Wed Sep 07 16:26:45 2011 +0100 +++ b/lisp/about.el Wed Sep 07 21:21:36 2011 +0100 @@ -467,21 +467,21 @@ XEmacs is the result of the time and effort of many people. The developers responsible for this release are:\n\n") - (flet ((setup-person (who) - (widget-insert "\t* ") - (let* ((entry (assq who xemacs-hackers)) - (name (cadr entry)) - (address (caddr entry))) - (widget-create 'link - :help-echo (concat "Find out more about " name) - :button-prefix "" - :button-suffix "" - :action 'about-maintainer - :tag name - :value who) - (widget-insert (format " <%s>\n" address))))) + (labels ((setup-person (who) + (widget-insert "\t* ") + (let* ((entry (assq who xemacs-hackers)) + (name (cadr entry)) + (address (caddr entry))) + (widget-create 'link + :help-echo (concat "Find out more about " name) + :button-prefix "" + :button-suffix "" + :action 'about-maintainer + :tag name + :value who) + (widget-insert (format " <%s>\n" address))))) ;; Setup persons responsible for this release. - (mapc 'setup-person about-current-release-maintainers) + (mapc #'setup-person about-current-release-maintainers) (widget-insert "\n\t* ") (widget-create 'link :help-echo "A legion of XEmacs hackers" :action 'about-hackers @@ -2009,14 +2009,12 @@ 'about-headline-face) "\n\n") (mapc 'about-show-linked-info about-once-and-future-hackers) - (flet ((print-short (name addr &optional shortinfo) - (widget-insert (concat (about-with-face name 'italic) - (about-tabs name) - "<")) - (about-mailto-link addr) - (widget-insert - (concat ">\n" - (if shortinfo (concat shortinfo "\n") ""))))) + (labels ((print-short (name addr &optional shortinfo) + (widget-insert (concat (about-with-face name 'italic) + (about-tabs name) "<")) + (about-mailto-link addr) + (widget-insert + (concat ">\n" (if shortinfo (concat shortinfo "\n") ""))))) (widget-insert "\n\ In addition to those just mentioned, the following people have spent a