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
a7384d3d
Commit
a7384d3d
authored
Aug 09, 2005
by
Richard M. Stallman
Browse files
(menu-bar-file-menu): Rename some menu items and improve help strings.
parent
f4c49513
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
lisp/menu-bar.el
lisp/menu-bar.el
+8
-8
No files found.
lisp/menu-bar.el
View file @
a7384d3d
...
...
@@ -99,13 +99,13 @@ A large number or nil slows down menu responsiveness."
:help
"Open a new frame"
))
(
define-key
menu-bar-file-menu
[one-window]
'
(
menu-item
"
Unsplit Window
s"
delete-other-windows
'
(
menu-item
"
Remove Split
s"
delete-other-windows
:enable
(
not
(
one-window-p
t
nil
))
:help
"
Make s
elected window
fill its
frame"
))
:help
"
S
elected window
grows to fill the whole
frame"
))
(
define-key
menu-bar-file-menu
[split-window]
'
(
menu-item
"Split Window"
split-window-vertically
:help
"Split selected window in two"
))
:help
"Split selected window in two
windows
"
))
(
define-key
menu-bar-file-menu
[separator-window]
'
(
menu-item
"--"
))
...
...
@@ -159,12 +159,12 @@ A large number or nil slows down menu responsiveness."
(
current-buffer
))))))
:help
"Re-read current buffer from its file"
))
(
define-key
menu-bar-file-menu
[write-file]
'
(
menu-item
"Save
Buffer
As..."
write-file
'
(
menu-item
"Save As..."
write-file
:enable
(
not
(
window-minibuffer-p
(
frame-selected-window
menu-updating-frame
)))
:help
"Write current buffer to another file"
))
(
define-key
menu-bar-file-menu
[save-buffer]
'
(
menu-item
"Save
(current buffer)
"
save-buffer
'
(
menu-item
"Save"
save-buffer
:enable
(
and
(
buffer-modified-p
)
(
buffer-file-name
)
(
not
(
window-minibuffer-p
...
...
@@ -175,9 +175,9 @@ A large number or nil slows down menu responsiveness."
'
(
menu-item
"--"
))
(
define-key
menu-bar-file-menu
[kill-buffer]
'
(
menu-item
"Close
(current buffer)
"
kill-this-buffer
'
(
menu-item
"Close"
kill-this-buffer
:enable
(
kill-this-buffer-enabled-p
)
:help
"Discard current buffer"
))
:help
"Discard
(kill)
current buffer"
))
(
define-key
menu-bar-file-menu
[insert-file]
'
(
menu-item
"Insert File..."
insert-file
:enable
(
not
(
window-minibuffer-p
...
...
@@ -194,7 +194,7 @@ A large number or nil slows down menu responsiveness."
(
frame-selected-window
menu-updating-frame
)))
:help
"Read an existing file into an Emacs buffer"
))
(
define-key
menu-bar-file-menu
[new-file]
'
(
menu-item
"New File..."
find-file
'
(
menu-item
"
Visit
New File..."
find-file
:enable
(
not
(
window-minibuffer-p
(
frame-selected-window
menu-updating-frame
)))
:help
"Read or create a file and edit it"
))
...
...
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