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
9314395d
Commit
9314395d
authored
Aug 03, 1997
by
André Spiegel
Browse files
(vc-menu-map): Replace entries for "Check In" and "Check Out" with
new entry "Check In/Out" (calling vc-next-action).
parent
7e6ed9b9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
3 deletions
+1
-3
lisp/vc-hooks.el
lisp/vc-hooks.el
+1
-3
No files found.
lisp/vc-hooks.el
View file @
9314395d
...
...
@@ -1093,8 +1093,7 @@ Returns t if checkout was successful, nil otherwise."
'
(
"Revert to Last Version"
.
vc-revert-buffer
))
(
define-key
vc-menu-map
[vc-insert-header]
'
(
"Insert Header"
.
vc-insert-headers
))
(
define-key
vc-menu-map
[vc-menu-check-in]
'
(
"Check In"
.
vc-next-action
))
(
define-key
vc-menu-map
[vc-check-out]
'
(
"Check Out"
.
vc-toggle-read-only
))
(
define-key
vc-menu-map
[vc-next-action]
'
(
"Check In/Out"
.
vc-next-action
))
(
define-key
vc-menu-map
[vc-register]
'
(
"Register"
.
vc-register
)))
(
put
'vc-rename-file
'menu-enable
'vc-mode
)
...
...
@@ -1108,7 +1107,6 @@ Returns t if checkout was successful, nil otherwise."
(
put
'vc-revert-buffer
'menu-enable
'vc-mode
)
(
put
'vc-insert-headers
'menu-enable
'vc-mode
)
(
put
'vc-next-action
'menu-enable
'vc-mode
)
(
put
'vc-toggle-read-only
'menu-enable
'vc-mode
)
(
put
'vc-register
'menu-enable
'
(
and
buffer-file-name
(
not
vc-mode
)))
(
provide
'vc-hooks
)
...
...
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