--- a/lisp/prim/auto-autoloads.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/prim/auto-autoloads.el	Mon Aug 13 08:49:43 2007 +0200
@@ -855,6 +855,202 @@
 
 ;;;***
 
+;;;### (autoloads (custom-make-dependencies custom-menu-update custom-buffer-create customize-apropos customize-customized customize-face customize-variable customize) "custom-edit" "custom/custom-edit.el")
+
+(autoload 'customize "custom-edit" "\
+Customize SYMBOL, which must be a customization group." t nil)
+
+(autoload 'customize-variable "custom-edit" "\
+Customize SYMBOL, which must be a variable." t nil)
+
+(autoload 'customize-face "custom-edit" "\
+Customize FACE." t nil)
+
+(autoload 'customize-customized "custom-edit" "\
+Customize all already customized user options." t nil)
+
+(autoload 'customize-apropos "custom-edit" "\
+Customize all user options matching REGEXP.
+If ALL (e.g., started with a prefix key), include options which are not
+user-settable." t nil)
+
+(autoload 'custom-buffer-create "custom-edit" "\
+Create a buffer containing OPTIONS.
+OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
+SYMBOL is a customization option, and WIDGET is a widget for editing
+that option." nil nil)
+
+(autoload 'custom-menu-update "custom-edit" "\
+Update customize menu." t nil)
+
+(autoload 'custom-make-dependencies "custom-edit" "\
+Batch function to extract custom dependencies from .el files.
+Usage: emacs -batch *.el -f custom-make-dependencies > deps.el" nil nil)
+
+;;;***
+
+;;;### (autoloads (custom-set-faces custom-set-variables custom-initialize-faces custom-add-to-group defgroup custom-declare-group defface custom-declare-face defcustom custom-declare-variable) "custom" "custom/custom.el")
+
+(autoload 'custom-declare-variable "custom" "\
+Like `defcustom', but SYMBOL and VALUE are evaluated as notmal arguments." nil nil)
+
+(autoload 'defcustom "custom" "\
+Declare SYMBOL as a customizable variable that defaults to VALUE.
+DOC is the variable documentation.
+
+Neither SYMBOL nor VALUE needs to be quoted.
+If SYMBOL is not already bound, initialize it to VALUE.
+The remaining arguments should have the form
+
+   [KEYWORD VALUE]... 
+
+The following KEYWORD's are defined:
+
+:type	VALUE should be a widget type.
+:options VALUE should be a list of valid members of the widget type.
+:group  VALUE should be a customization group.  
+        Add SYMBOL to that group.
+
+Read the section about customization in the emacs lisp manual for more
+information." nil 'macro)
+
+(autoload 'custom-declare-face "custom" "\
+Like `defface', but FACE is evaluated as a normal argument." nil nil)
+
+(autoload 'defface "custom" "\
+Declare FACE as a customizable face that defaults to SPEC.
+FACE does not need to be quoted.
+
+Third argument DOC is the face documentation.
+
+If FACE has been set with `custom-set-face', set the face attributes
+as specified by that function, otherwise set the face attributes
+according to SPEC.
+
+The remaining arguments should have the form
+
+   [KEYWORD VALUE]...
+
+The following KEYWORD's are defined:
+
+:group  VALUE should be a customization group.
+        Add FACE to that group.
+
+SPEC should be an alist of the form ((DISPLAY ATTS)...).
+
+ATTS is a list of face attributes and their values.  The possible
+attributes are defined in the variable `custom-face-attributes'.
+Alternatively, ATTS can be a face in which case the attributes of that
+face is used.
+
+The ATTS of the first entry in SPEC where the DISPLAY matches the
+frame should take effect in that frame.  DISPLAY can either be the
+symbol `t', which will match all frames, or an alist of the form
+\((REQ ITEM...)...)
+
+For the DISPLAY to match a FRAME, the REQ property of the frame must
+match one of the ITEM.  The following REQ are defined:
+
+`type' (the value of (window-system))
+  Should be one of `x' or `tty'.
+
+`class' (the frame's color support)
+  Should be one of `color', `grayscale', or `mono'.
+
+`background' (what color is used for the background text)
+  Should be one of `light' or `dark'.
+
+Read the section about customization in the emacs lisp manual for more
+information." nil 'macro)
+
+(autoload 'custom-declare-group "custom" "\
+Like `defgroup', but SYMBOL is evaluated as a normal argument." nil nil)
+
+(autoload 'defgroup "custom" "\
+Declare SYMBOL as a customization group containing MEMBERS.
+SYMBOL does not need to be quoted.
+
+Third arg DOC is the group documentation.
+
+MEMBERS should be an alist of the form ((NAME WIDGET)...) where
+NAME is a symbol and WIDGET is a widget is a widget for editing that
+symbol.  Useful widgets are `custom-variable' for editing variables,
+`custom-face' for edit faces, and `custom-group' for editing groups.
+
+The remaining arguments should have the form
+
+   [KEYWORD VALUE]... 
+
+The following KEYWORD's are defined:
+
+:group  VALUE should be a customization group.
+        Add SYMBOL to that group.
+
+Read the section about customization in the emacs lisp manual for more
+information." nil 'macro)
+
+(autoload 'custom-add-to-group "custom" "\
+To existing GROUP add a new OPTION of type WIDGET,
+If there already is an entry for that option, overwrite it." nil nil)
+
+(autoload 'custom-initialize-faces "custom" "\
+Initialize all custom faces for FRAME.
+If FRAME is nil or omitted, initialize them for all frames." nil nil)
+
+(autoload 'custom-set-variables "custom" "\
+Initialize variables according to user preferences.  
+
+The arguments should be a list where each entry has the form:
+
+  (SYMBOL VALUE [NOW])
+
+The unevaluated VALUE is stored as the saved value for SYMBOL.
+If NOW is present and non-nil, VALUE is also evaluated and bound as
+the default value for the SYMBOL." nil nil)
+
+(autoload 'custom-set-faces "custom" "\
+Initialize faces according to user preferences.
+The arguments should be a list where each entry has the form:
+
+  (FACE SPEC [NOW])
+
+SPEC will be stored as the saved value for FACE.  If NOW is present
+and non-nil, FACE will also be created according to SPEC.
+
+See `defface' for the format of SPEC." nil nil)
+
+;;;***
+
+;;;### (autoloads (widget-delete widget-create) "widget-edit" "custom/widget-edit.el")
+
+(autoload 'widget-create "widget-edit" "\
+Create widget of TYPE.  
+The optional ARGS are additional keyword arguments." nil nil)
+
+(autoload 'widget-delete "widget-edit" "\
+Delete WIDGET." nil nil)
+
+;;;***
+
+;;;### (autoloads (define-widget) "widget" "custom/widget.el")
+
+(autoload 'define-widget "widget" "\
+Define a new widget type named NAME from CLASS.
+
+NAME and CLASS should both be symbols, CLASS should be one of the
+existing widget types, or nil to create the widget from scratch.
+
+After the new widget has been defined, the following two calls will
+create identical widgets:
+
+* (widget-create NAME)
+
+* (apply 'widget-create CLASS ARGS)
+
+The third argument DOC is a documentation string for the widget." nil nil)
+
+;;;***
+
 ;;;### (autoloads (ange-ftp-hook-function) "ange-ftp" "dired/ange-ftp.el")
 
 (defvar ange-ftp-path-format '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*\\):\\(.*\\)" 3 2 4) "\
@@ -1814,172 +2010,6 @@
 
 ;;;***
 
-;;;### (autoloads (custom-make-dependencies custom-menu-update custom-buffer-create customize-apropos customize-customized customize-face customize-variable customize) "custom-edit" "gnus/custom-edit.el")
-
-(autoload 'customize "custom-edit" "\
-Customize SYMBOL, which must be a customization group." t nil)
-
-(autoload 'customize-variable "custom-edit" "\
-Customize SYMBOL, which must be a variable." t nil)
-
-(autoload 'customize-face "custom-edit" "\
-Customize FACE." t nil)
-
-(autoload 'customize-customized "custom-edit" "\
-Customize all already customized user options." t nil)
-
-(autoload 'customize-apropos "custom-edit" "\
-Customize all user options matching REGEXP.
-If ALL (e.g., started with a prefix key), include options which are not
-user-settable." t nil)
-
-(autoload 'custom-buffer-create "custom-edit" "\
-Create a buffer containing OPTIONS.
-OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
-SYMBOL is a customization option, and WIDGET is a widget for editing
-that option." nil nil)
-
-(autoload 'custom-menu-update "custom-edit" "\
-Update customize menu." t nil)
-
-(autoload 'custom-make-dependencies "custom-edit" "\
-Batch function to extract custom dependencies from .el files.
-Usage: emacs -batch *.el -f custom-make-dependencies > deps.el" nil nil)
-
-;;;***
-
-;;;### (autoloads (custom-set-faces custom-set-variables custom-initialize-faces custom-add-to-group defgroup custom-declare-group defface custom-declare-face defcustom custom-declare-variable) "custom" "gnus/custom.el")
-
-(autoload 'custom-declare-variable "custom" "\
-Like `defcustom', but SYMBOL and VALUE are evaluated as notmal arguments." nil nil)
-
-(autoload 'defcustom "custom" "\
-Declare SYMBOL as a customizable variable that defaults to VALUE.
-DOC is the variable documentation.
-
-Neither SYMBOL nor VALUE needs to be quoted.
-If SYMBOL is not already bound, initialize it to VALUE.
-The remaining arguments should have the form
-
-   [KEYWORD VALUE]... 
-
-The following KEYWORD's are defined:
-
-:type	VALUE should be a widget type.
-:options VALUE should be a list of valid members of the widget type.
-:group  VALUE should be a customization group.  
-        Add SYMBOL to that group.
-
-Read the section about customization in the emacs lisp manual for more
-information." nil 'macro)
-
-(autoload 'custom-declare-face "custom" "\
-Like `defface', but FACE is evaluated as a normal argument." nil nil)
-
-(autoload 'defface "custom" "\
-Declare FACE as a customizable face that defaults to SPEC.
-FACE does not need to be quoted.
-
-Third argument DOC is the face documentation.
-
-If FACE has been set with `custom-set-face', set the face attributes
-as specified by that function, otherwise set the face attributes
-according to SPEC.
-
-The remaining arguments should have the form
-
-   [KEYWORD VALUE]...
-
-The following KEYWORD's are defined:
-
-:group  VALUE should be a customization group.
-        Add FACE to that group.
-
-SPEC should be an alist of the form ((DISPLAY ATTS)...).
-
-ATTS is a list of face attributes and their values.  The possible
-attributes are defined in the variable `custom-face-attributes'.
-Alternatively, ATTS can be a face in which case the attributes of that
-face is used.
-
-The ATTS of the first entry in SPEC where the DISPLAY matches the
-frame should take effect in that frame.  DISPLAY can either be the
-symbol `t', which will match all frames, or an alist of the form
-\((REQ ITEM...)...)
-
-For the DISPLAY to match a FRAME, the REQ property of the frame must
-match one of the ITEM.  The following REQ are defined:
-
-`type' (the value of (window-system))
-  Should be one of `x' or `tty'.
-
-`class' (the frame's color support)
-  Should be one of `color', `grayscale', or `mono'.
-
-`background' (what color is used for the background text)
-  Should be one of `light' or `dark'.
-
-Read the section about customization in the emacs lisp manual for more
-information." nil 'macro)
-
-(autoload 'custom-declare-group "custom" "\
-Like `defgroup', but SYMBOL is evaluated as a normal argument." nil nil)
-
-(autoload 'defgroup "custom" "\
-Declare SYMBOL as a customization group containing MEMBERS.
-SYMBOL does not need to be quoted.
-
-Third arg DOC is the group documentation.
-
-MEMBERS should be an alist of the form ((NAME WIDGET)...) where
-NAME is a symbol and WIDGET is a widget is a widget for editing that
-symbol.  Useful widgets are `custom-variable' for editing variables,
-`custom-face' for edit faces, and `custom-group' for editing groups.
-
-The remaining arguments should have the form
-
-   [KEYWORD VALUE]... 
-
-The following KEYWORD's are defined:
-
-:group  VALUE should be a customization group.
-        Add SYMBOL to that group.
-
-Read the section about customization in the emacs lisp manual for more
-information." nil 'macro)
-
-(autoload 'custom-add-to-group "custom" "\
-To existing GROUP add a new OPTION of type WIDGET,
-If there already is an entry for that option, overwrite it." nil nil)
-
-(autoload 'custom-initialize-faces "custom" "\
-Initialize all custom faces for FRAME.
-If FRAME is nil or omitted, initialize them for all frames." nil nil)
-
-(autoload 'custom-set-variables "custom" "\
-Initialize variables according to user preferences.  
-
-The arguments should be a list where each entry has the form:
-
-  (SYMBOL VALUE [NOW])
-
-The unevaluated VALUE is stored as the saved value for SYMBOL.
-If NOW is present and non-nil, VALUE is also evaluated and bound as
-the default value for the SYMBOL." nil nil)
-
-(autoload 'custom-set-faces "custom" "\
-Initialize faces according to user preferences.
-The arguments should be a list where each entry has the form:
-
-  (FACE SPEC [NOW])
-
-SPEC will be stored as the saved value for FACE.  If NOW is present
-and non-nil, FACE will also be created according to SPEC.
-
-See `defface' for the format of SPEC." nil nil)
-
-;;;***
-
 ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el")
 
 (autoload 'gnus-earcon-display "earcon" "\
@@ -2039,13 +2069,6 @@
 
 ;;;***
 
-;;;### (autoloads (gnus-sound-play) "gnus-sound" "gnus/gnus-sound.el")
-
-(autoload 'gnus-sound-play "gnus-sound" "\
-Play a sound through the speaker." t nil)
-
-;;;***
-
 ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el")
 
 (autoload 'gnus-batch-brew-soup "gnus-soup" "\
@@ -2113,7 +2136,7 @@
 
 ;;;### (autoloads (unbold-region bold-region message-news-other-frame message-news-other-window message-mail-other-frame message-mail-other-window message-bounce message-resend message-forward message-recover message-supersede message-cancel-news message-followup message-wide-reply message-reply message-news message-mail message-mode) "message" "gnus/message.el")
 
-(defcustom message-fcc-handler-function 'message-output "*A function called to save outgoing articles.\nThis function will be called with the name of the file to store the\narticle in.  The default function is `rmail-output' which saves in Unix\nmailbox format." :type '(radio (function-item rmail-output) (function :tag "Other")) :group 'message-sending)
+(defcustom message-fcc-handler-function 'message-output "*A function called to save outgoing articles.\nThis function will be called with the name of the file to store the\narticle in.  The default function is `message-output' which saves in Unix\nmailbox format." :type '(radio (function-item message-output) (function :tag "Other")) :group 'message-sending)
 
 (defcustom message-from-style 'default "*Specifies how \"From\" headers look.\n\nIf `nil', they contain just the return address like:\n	king@grassland.com\nIf `parens', they look like:\n	king@grassland.com (Elvis Parsley)\nIf `angles', they look like:\n	Elvis Parsley <king@grassland.com>\n\nOtherwise, most addresses look like `angles', but they look like\n`parens' if `angles' would need quoting and `parens' would not." :type '(choice (const :tag "simple" nil) (const parens) (const angles) (const default)) :group 'message-headers)
 
@@ -3651,7 +3674,7 @@
 ;;;### (autoloads (ksh-mode) "ksh-mode" "modes/ksh-mode.el")
 
 (autoload 'ksh-mode "ksh-mode" "\
-ksh-mode $Revision: 1.4 $ - Major mode for editing (Bourne, Korn or Bourne again)
+ksh-mode $Revision: 1.5 $ - Major mode for editing (Bourne, Korn or Bourne again)
 shell scripts.
 Special key bindings and commands:
 \\{ksh-mode-map}
@@ -4868,7 +4891,7 @@
 
 (autoload 'vhdl-mode "vhdl-mode" "\
 Major mode for editing VHDL code.
-vhdl-mode $Revision: 1.4 $
+vhdl-mode $Revision: 1.5 $
 To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a
 vhdl-mode buffer.  This automatically sets up a mail buffer with version
 information already added.  You just need to add a description of the
@@ -9503,36 +9526,6 @@
 
 ;;;***
 
-;;;### (autoloads (widget-delete widget-create) "widget-edit" "w3/widget-edit.el")
-
-(autoload 'widget-create "widget-edit" "\
-Create widget of TYPE.  
-The optional ARGS are additional keyword arguments." nil nil)
-
-(autoload 'widget-delete "widget-edit" "\
-Delete WIDGET." nil nil)
-
-;;;***
-
-;;;### (autoloads (define-widget) "widget" "w3/widget.el")
-
-(autoload 'define-widget "widget" "\
-Define a new widget type named NAME from CLASS.
-
-NAME and CLASS should both be symbols, CLASS should be one of the
-existing widget types, or nil to create the widget from scratch.
-
-After the new widget has been defined, the following two calls will
-create identical widgets:
-
-* (widget-create NAME)
-
-* (apply 'widget-create CLASS ARGS)
-
-The third argument DOC is a documentation string for the widget." nil nil)
-
-;;;***
-
 ;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "x-font-menu" "x11/x-font-menu.el")
 
 (defvar font-menu-ignore-scaled-fonts t "\