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.

--- a/lisp/mule/mule-x-init.el	Wed Sep 07 16:26:45 2011 +0100
+++ b/lisp/mule/mule-x-init.el	Wed Sep 07 21:21:36 2011 +0100
@@ -39,14 +39,14 @@
 occupy exactly twice the screen space of ASCII (`halfwidth')
 characters.  On many systems, e.g. Sun CDE systems, this can only be
 achieved by using a national variant roman font to display ASCII."
-  (flet ((charset-font-width (charset)
-	   (font-instance-width
-	    (face-font-instance 'default (selected-device) charset)))
+  (labels ((charset-font-width (charset)
+             (font-instance-width
+              (face-font-instance 'default (selected-device) charset)))
 	 
-	 (twice-as-wide (cs1 cs2)
-	   (let ((width1 (charset-font-width cs1))
-		 (width2 (charset-font-width cs2)))
-	     (and width1 width2 (eq (+ width1 width1) width2)))))
+           (twice-as-wide (cs1 cs2)
+             (let ((width1 (charset-font-width cs1))
+                   (width2 (charset-font-width cs2)))
+               (and width1 width2 (eq (+ width1 width1) width2)))))
 
     (when (eq 'x (device-type))
       (let ((original-registries (charset-registries 'ascii)))