diff options
| author | Richard M. Stallman | 1997-05-01 22:21:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-01 22:21:19 +0000 |
| commit | c9a86e717aa54571bb2c0cab53d87a61092a5c1c (patch) | |
| tree | 55df874c33217a58b0b9f60b2170dd4594acf87c | |
| parent | ad7f9d12c829c73228a7f961ebe02d2274e1410d (diff) | |
| download | emacs-c9a86e717aa54571bb2c0cab53d87a61092a5c1c.tar.gz emacs-c9a86e717aa54571bb2c0cab53d87a61092a5c1c.zip | |
(menu-bar-custom-menu):
New item `Browse All Customization'.
Rename and shuffle other items.
`Specify Group...' is now customize-group.
| -rw-r--r-- | lisp/menu-bar.el | 14 |
1 files 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." | |||
| 321 | 321 | ||
| 322 | (defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) | 322 | (defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) |
| 323 | 323 | ||
| 324 | (define-key menu-bar-custom-menu [custom-menu-update] | ||
| 325 | '("Update This Menu" . custom-menu-update)) | ||
| 324 | (define-key menu-bar-custom-menu [customize-apropos] | 326 | (define-key menu-bar-custom-menu [customize-apropos] |
| 325 | '("Apropos..." . customize-apropos)) | 327 | '("Apropos..." . customize-apropos)) |
| 326 | (define-key menu-bar-custom-menu [customize-variable] | 328 | (define-key menu-bar-custom-menu [customize-group] |
| 327 | '("Variable..." . customize-variable)) | 329 | '("Specific Group..." . customize-group)) |
| 328 | (define-key menu-bar-custom-menu [customize-face] | 330 | (define-key menu-bar-custom-menu [customize-face] |
| 329 | '("Face..." . customize-face)) | 331 | '("Specific Face..." . customize-face)) |
| 332 | (define-key menu-bar-custom-menu [customize-variable] | ||
| 333 | '("Specific Variable..." . customize-variable)) | ||
| 330 | (define-key menu-bar-custom-menu [customize] | 334 | (define-key menu-bar-custom-menu [customize] |
| 331 | '("Group..." . customize)) | 335 | '("Browse Hierarchy of User Options" . customize)) |
| 332 | (define-key menu-bar-custom-menu [custom-menu-update] | ||
| 333 | '("Update menu..." . custom-menu-update)) | ||
| 334 | 336 | ||
| 335 | (define-key menu-bar-help-menu [customize-menu] | 337 | (define-key menu-bar-help-menu [customize-menu] |
| 336 | (cons "Customize" menu-bar-custom-menu)) | 338 | (cons "Customize" menu-bar-custom-menu)) |