--- a/lisp/utils/auto-autoloads.el	Mon Aug 13 10:02:48 2007 +0200
+++ b/lisp/utils/auto-autoloads.el	Mon Aug 13 10:03:52 2007 +0200
@@ -333,7 +333,9 @@
 
 ;;;***
 
-;;;### (autoloads (list-colors-display facemenu-read-color list-text-properties-at facemenu-remove-special facemenu-remove-props facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible facemenu-make-much-smaller facemenu-make-much-larger facemenu-make-smaller facemenu-make-larger facemenu-set-size-default facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground facemenu-set-face) "facemenu" "utils/facemenu.el")
+;;;### (autoloads (list-colors-display list-text-properties-at facemenu-remove-special facemenu-remove-props facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible facemenu-make-much-smaller facemenu-make-much-larger facemenu-make-smaller facemenu-make-larger facemenu-set-size-default facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground facemenu-set-face) "facemenu" "utils/facemenu.el")
+
+(autoload 'facemenu-keymap "facemenu" nil t 'keymap)
 
 (define-key ctl-x-map "F" 'facemenu-keymap)
 
@@ -345,6 +347,8 @@
 `Facemenu-update' fills in the keymap according to the bindings
 requested in `facemenu-keybindings'.")
 
+(defalias 'facemenu-keymap facemenu-keymap)
+
 (autoload 'facemenu-set-face "facemenu" "\
 Add FACE to the region or next character typed.
 It will be added to the top of the face list; any faces lower on the list that
@@ -424,8 +428,7 @@
 (autoload 'list-text-properties-at "facemenu" "\
 Pop up a buffer listing text-properties at LOCATION." t nil)
 
-(autoload 'facemenu-read-color "facemenu" "\
-Read a color using the minibuffer." nil nil)
+(defalias 'facemenu-read-color 'read-color)
 
 (autoload 'list-colors-display "facemenu" "\
 Display names of defined colors, and show what they look like.
@@ -462,28 +465,6 @@
 
 ;;;***
 
-;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" "utils/flow-ctrl.el")
-
-(autoload 'enable-flow-control "flow-ctrl" "\
-Toggle flow control handling.
-When handling is enabled, user can type C-s as C-\\, and C-q as C-^.
-With arg, enable flow control mode if arg is positive, otherwise disable." t nil)
-
-(autoload 'enable-flow-control-on "flow-ctrl" "\
-Enable flow control if using one of a specified set of terminal types.
-Use `(enable-flow-control-on \"vt100\" \"h19\")' to enable flow control
-on VT-100 and H19 terminals.  When flow control is enabled,
-you must type C-\\ to get the effect of a C-s, and type C-^
-to get the effect of a C-q.
-
-This function has no effect unless the current device is a tty.
-
-The tty terminal type is determined from the TERM environment variable.
-Trailing hyphens and everything following is stripped, so a TERM
-value of \"vt100-nam\" is treated the same as \"vt100\"." nil nil)
-
-;;;***
-
 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "utils/font.el")
 
 (autoload 'font-create-object "font" nil nil nil)
@@ -534,17 +515,6 @@
 
 ;;;***
 
-;;;### (autoloads (unhide-copyleft-region hide-copyleft-region) "hide-copyleft" "utils/hide-copyleft.el")
-
-(autoload 'hide-copyleft-region "hide-copyleft" "\
-Make the legal drivel at the front of this file invisible.  Unhide it again
-with C-u \\[hide-copyleft-region]." t nil)
-
-(autoload 'unhide-copyleft-region "hide-copyleft" "\
-If the legal nonsense at the top of this file is elided, make it visible again." nil nil)
-
-;;;***
-
 ;;;### (autoloads (highlight-headers-follow-url highlight-headers-follow-url-mosaic highlight-headers-follow-url-netscape highlight-headers) "highlight-headers" "utils/highlight-headers.el")
 
 (autoload 'highlight-headers "highlight-headers" "\