Mercurial > hg > xemacs-beta
comparison lisp/cl-macs.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 | 4654c01af32b |
| children | d19b6e3bdf91 |
comparison
equal
deleted
inserted
replaced
| 5566:4654c01af32b | 5567:3bc58dc9d688 |
|---|---|
| 1761 | 1761 |
| 1762 Within FORM, to access the function definition of a bound function (for | 1762 Within FORM, to access the function definition of a bound function (for |
| 1763 example, to pass it as a FUNCTION argument to `map'), quote its symbol name | 1763 example, to pass it as a FUNCTION argument to `map'), quote its symbol name |
| 1764 using `function'. | 1764 using `function'. |
| 1765 | 1765 |
| 1766 arguments: (((FUNCTION ARGLIST &body BODY) &rest FUNCTIONS) &body FORM)" | 1766 arguments: (((FUNCTION ARGLIST &body BODY) &rest FUNCTIONS) &body FORM) |
| 1767 " | |
| 1767 ;; XEmacs; the byte-compiler has a much better implementation of `labels' | 1768 ;; XEmacs; the byte-compiler has a much better implementation of `labels' |
| 1768 ;; in `byte-compile-initial-macro-environment' that is used in compiled | 1769 ;; in `byte-compile-initial-macro-environment' that is used in compiled |
| 1769 ;; code. | 1770 ;; code. |
| 1770 (let ((vars nil) (sets nil) | 1771 (let ((vars nil) (sets nil) |
| 1771 (byte-compile-macro-environment byte-compile-macro-environment)) | 1772 (byte-compile-macro-environment byte-compile-macro-environment)) |