+
+;;; Menu support
+
+(defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
+
+(define-key menu-bar-custom-menu [custom-menu-update]
+ '("Update This Menu" . custom-menu-update))
+(define-key menu-bar-custom-menu [customize-apropos]
+ '("Apropos..." . customize-apropos))
+(define-key menu-bar-custom-menu [customize-group]
+ '("Specific Group..." . customize-group))
+(define-key menu-bar-custom-menu [customize-face]
+ '("Specific Face..." . customize-face))
+(define-key menu-bar-custom-menu [customize-variable]
+ '("Specific Variable..." . customize-variable))
+(define-key menu-bar-custom-menu [customize]
+ '("Browse Hierarchy of User Options" . customize))
+