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
ca9b40a1
Commit
ca9b40a1
authored
Mar 15, 1993
by
Richard M. Stallman
Browse files
*** empty log message ***
parent
ef5f15e3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
27 additions
and
26 deletions
+27
-26
lisp/menu-bar.el
lisp/menu-bar.el
+27
-26
No files found.
lisp/menu-bar.el
View file @
ca9b40a1
...
...
@@ -8,43 +8,43 @@
(
setq
menu-bar-help-menu
(
make-sparse-keymap
"Help"
))
(
define-key
global-map
[menu-bar
help]
menu-bar-help-menu
)
(
define-key
menu-bar-file-m
ap
[new-frame]
'
(
"New Frame"
.
new-frame
))
(
define-key
menu-bar-file-m
ap
[open-file]
'
(
"Open File..."
.
find-file
))
(
define-key
menu-bar-file-m
ap
[save-buffer]
'
(
"Save Buffer"
.
save-buffer
))
(
define-key
menu-bar-file-m
ap
[write-file]
(
define-key
menu-bar-file-m
enu
[new-frame]
'
(
"New Frame"
.
new-frame
))
(
define-key
menu-bar-file-m
enu
[open-file]
'
(
"Open File..."
.
find-file
))
(
define-key
menu-bar-file-m
enu
[save-buffer]
'
(
"Save Buffer"
.
save-buffer
))
(
define-key
menu-bar-file-m
enu
[write-file]
'
(
"Save Buffer As..."
.
write-file
))
(
define-key
menu-bar-file-m
ap
[revert-buffer]
(
define-key
menu-bar-file-m
enu
[revert-buffer]
'
(
"Revert Buffer"
.
revert-buffer
))
(
define-key
menu-bar-file-m
ap
[print-buffer]
'
(
"Print Buffer"
.
print-buffer
))
(
define-key
menu-bar-file-m
ap
[delete-frame]
'
(
"Delete Frame"
.
delete-frame
))
(
define-key
menu-bar-file-m
ap
[kill-buffer]
(
define-key
menu-bar-file-m
enu
[print-buffer]
'
(
"Print Buffer"
.
print-buffer
))
(
define-key
menu-bar-file-m
enu
[delete-frame]
'
(
"Delete Frame"
.
delete-frame
))
(
define-key
menu-bar-file-m
enu
[kill-buffer]
'
(
"Kill Buffer"
.
kill-this-buffer
))
(
define-key
menu-bar-file-m
ap
[exit-emacs]
(
define-key
menu-bar-file-m
enu
[exit-emacs]
'
(
"Exit Emacs"
.
save-buffers-kill-emacs
))
(
define-key
menu-bar-edit-m
ap
[undo]
'
(
"Undo"
.
advertised-undo
))
(
define-key
menu-bar-edit-m
ap
[cut]
'
(
"Cut"
.
x-kill-primary-selection
))
(
define-key
menu-bar-edit-m
ap
[copy]
'
(
"Copy"
.
x-copy-primary-selection
))
(
define-key
menu-bar-edit-m
ap
[paste]
'
(
"Paste"
.
x-yank-clipboard-selection
))
(
define-key
menu-bar-edit-m
ap
[clear]
'
(
"Clear"
.
x-delete-primary-selection
))
(
define-key
menu-bar-edit-m
enu
[undo]
'
(
"Undo"
.
advertised-undo
))
(
define-key
menu-bar-edit-m
enu
[cut]
'
(
"Cut"
.
x-kill-primary-selection
))
(
define-key
menu-bar-edit-m
enu
[copy]
'
(
"Copy"
.
x-copy-primary-selection
))
(
define-key
menu-bar-edit-m
enu
[paste]
'
(
"Paste"
.
x-yank-clipboard-selection
))
(
define-key
menu-bar-edit-m
enu
[clear]
'
(
"Clear"
.
x-delete-primary-selection
))
(
define-key
menu-bar-help-m
ap
[info]
'
(
"Info"
.
info
))
(
define-key
menu-bar-help-m
ap
[describe-mode]
(
define-key
menu-bar-help-m
enu
[info]
'
(
"Info"
.
info
))
(
define-key
menu-bar-help-m
enu
[describe-mode]
'
(
"Describe Mode"
.
describe-mode
))
(
define-key
menu-bar-help-m
ap
[command-apropos]
(
define-key
menu-bar-help-m
enu
[command-apropos]
'
(
"Command Apropos..."
.
command-apropos
))
(
define-key
menu-bar-help-m
ap
[list-keybindings]
(
define-key
menu-bar-help-m
enu
[list-keybindings]
'
(
"List Keybindings"
.
describe-bindings
))
(
define-key
menu-bar-help-m
ap
[describe-key]
(
define-key
menu-bar-help-m
enu
[describe-key]
'
(
"Describe Key..."
.
describe-key
))
(
define-key
menu-bar-help-m
ap
[describe-function]
(
define-key
menu-bar-help-m
enu
[describe-function]
'
(
"Describe Function..."
.
describe-function
))
(
define-key
menu-bar-help-m
ap
[describe-variable]
(
define-key
menu-bar-help-m
enu
[describe-variable]
'
(
"Describe Variable..."
.
describe-variable
))
(
define-key
menu-bar-help-m
ap
[man]
'
(
"Man..."
.
manual-entry
))
(
define-key
menu-bar-help-m
ap
[emacs-tutorial]
(
define-key
menu-bar-help-m
enu
[man]
'
(
"Man..."
.
manual-entry
))
(
define-key
menu-bar-help-m
enu
[emacs-tutorial]
'
(
"Emacs Tutorial"
.
help-with-tutorial
))
(
define-key
menu-bar-help-m
ap
[emacs-news]
'
(
"Emacs News"
.
view-emacs-news
))
(
define-key
menu-bar-help-m
enu
[emacs-news]
'
(
"Emacs News"
.
view-emacs-news
))
(
defun
kill-this-buffer
()
; for the menubar
...
...
@@ -54,7 +54,7 @@
(
put
'save-buffer
'menu-enable
'
(
buffer-modified-p
))
(
put
'revert-buffer
'menu-enable
'buffer-file-name
)
(
put
'delete-frame
'menu-enable
'
(
null
(
cdr
(
visible-frame-list
))))
)
(
put
'delete-frame
'menu-enable
'
(
null
(
cdr
(
visible-frame-list
))))
(
put
'x-kill-primary-selection
'menu-enable
'
(
x-selection-owner-p
))
(
put
'x-copy-primary-selection
'menu-enable
'
(
x-selection-owner-p
))
(
put
'x-yank-clipboard-selection
'menu-enable
'
(
x-selection-owner-p
))
...
...
@@ -66,4 +66,5 @@
(
setq
undoing-more
(
and
(
boundp
'pending-undo-list
)
pending-undo-list
)
buffer-undo-list
))))
\ No newline at end of file
buffer-undo-list
))))
(
force-mode-line-update
)
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