Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b0f661de
Commit
b0f661de
authored
Jul 09, 1997
by
Richard M. Stallman
Browse files
(menu-bar-custom-menu): Add several more menu items.
Rename some. Delete "Update this menu".
parent
bc74e94e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
5 deletions
+15
-5
lisp/menu-bar.el
lisp/menu-bar.el
+15
-5
No files found.
lisp/menu-bar.el
View file @
b0f661de
...
...
@@ -335,18 +335,28 @@ 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-groups]
'
(
"Apropos Groups..."
.
customize-apropos-groups
))
(
define-key
menu-bar-custom-menu
[customize-apropos-faces]
'
(
"Apropos Faces..."
.
customize-apropos-faces
))
(
define-key
menu-bar-custom-menu
[customize-apropos-options]
'
(
"Apropos Options..."
.
customize-apropos-options
))
(
define-key
menu-bar-custom-menu
[customize-apropos]
'
(
"Apropos..."
.
customize-apropos
))
(
define-key
menu-bar-custom-menu
[separator-2]
'
(
"--"
))
(
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-option]
'
(
"Specific Option..."
.
customize-option
))
(
define-key
menu-bar-custom-menu
[separator-3]
'
(
"--"
))
(
define-key
menu-bar-custom-menu
[customize-browse]
'
(
"Browse Hierarchy of User Options"
.
customize-browse
))
'
(
"Browse Customization Groups"
.
customize-browse
))
(
define-key
menu-bar-custom-menu
[customize]
'
(
"Top-level Customization Group"
.
customize
))
(
define-key
menu-bar-help-menu
[emacs-version]
'
(
"Show Version"
.
emacs-version
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment