From c9a86e717aa54571bb2c0cab53d87a61092a5c1c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 May 1997 22:21:19 +0000 Subject: [PATCH] (menu-bar-custom-menu): New item `Browse All Customization'. Rename and shuffle other items. `Specify Group...' is now customize-group. --- lisp/menu-bar.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 4ca22d62522..7a13cb6936d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -321,16 +321,18 @@ Do the same for the keys of the same name." (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)) -- 2.39.5