# HG changeset patch # User Richard M. Stallman # Date 862525279 0 # Node ID 32f90c43d1d28b2e7d300cfde5c825e269a217c8 # Parent da246ef7532c5e5aa8493fee7b6bd6381ac5abd3 (menu-bar-custom-menu): New item `Browse All Customization'. Rename and shuffle other items. `Specify Group...' is now customize-group. diff -r da246ef7532c -r 32f90c43d1d2 lisp/menu-bar.el --- a/lisp/menu-bar.el Thu May 01 21:35:31 1997 +0000 +++ b/lisp/menu-bar.el Thu May 01 22:21:19 1997 +0000 @@ -321,16 +321,18 @@ (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-variable] - '("Variable..." . customize-variable)) +(define-key menu-bar-custom-menu [customize-group] + '("Specific Group..." . customize-group)) (define-key menu-bar-custom-menu [customize-face] - '("Face..." . 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] - '("Group..." . customize)) -(define-key menu-bar-custom-menu [custom-menu-update] - '("Update menu..." . custom-menu-update)) + '("Browse Hierarchy of User Options" . customize)) (define-key menu-bar-help-menu [customize-menu] (cons "Customize" menu-bar-custom-menu))