comparison lisp/lisp-mode.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 071b810ceb18
comparison
equal deleted inserted replaced
5566:4654c01af32b 5567:3bc58dc9d688
41 (defvar lisp-mode-syntax-table nil) 41 (defvar lisp-mode-syntax-table nil)
42 (defvar emacs-lisp-mode-syntax-table nil) 42 (defvar emacs-lisp-mode-syntax-table nil)
43 (defvar lisp-mode-abbrev-table nil) 43 (defvar lisp-mode-abbrev-table nil)
44 44
45 (defun construct-lisp-mode-menu (popup-p emacs-lisp-p) 45 (defun construct-lisp-mode-menu (popup-p emacs-lisp-p)
46 (flet ((popup-wrap (form) 46 (labels ((popup-wrap (form)
47 (if popup-p `(menu-call-at-event ',form) form))) 47 (if popup-p `(menu-call-at-event ',form) form)))
48 `(,@(if emacs-lisp-p 48 `(,@(if emacs-lisp-p
49 `(["%_Byte-Compile This File" ,(popup-wrap 49 `(["%_Byte-Compile This File" ,(popup-wrap
50 'emacs-lisp-byte-compile)] 50 'emacs-lisp-byte-compile)]
51 ["B%_yte-Compile/Load This File" 51 ["B%_yte-Compile/Load This File"
52 ,(popup-wrap 'emacs-lisp-byte-compile-and-load)] 52 ,(popup-wrap 'emacs-lisp-byte-compile-and-load)]