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
738efc8e
Commit
738efc8e
authored
Feb 21, 1996
by
Karl Heuer
Browse files
Move all the put's for menu-enable props to top level.
(vc-next-action, vc-toggle-read-only): Enable whenever vc-mode.
parent
8c379895
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
14 deletions
+14
-14
lisp/vc-hooks.el
lisp/vc-hooks.el
+14
-14
No files found.
lisp/vc-hooks.el
View file @
738efc8e
...
...
@@ -1022,20 +1022,20 @@ Returns t if checkout was successful, nil otherwise."
'
(
"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-register]
'
(
"Register"
.
vc-register
))
(
put
'vc-rename-file
'menu-enable
'vc-mode
)
(
put
'vc-
version-other-window
'menu-enable
'vc-mode
)
(
put
'vc-
diff
'menu-enable
'vc-mode
)
(
put
'vc-
update-change-log
'menu-enable
'
(
eq
(
vc-buffer-backend
)
'RCS
))
(
put
'vc-print-log
'menu-enable
'vc-mode
)
(
put
'vc-
cancel-version
'menu-enable
'vc-mode
)
(
put
'vc-
revert-buffer
'menu-enable
'vc-mode
)
(
put
'vc-
ins
ert-
head
er
s
'menu-enable
'vc-mode
)
(
put
'vc-
next-action
'menu-enable
'
(
and
vc-mode
(
not
buffer-read-only
))
)
(
put
'vc-
toggle-read-only
'menu-enable
'
(
and
vc-mode
buffer-read-only
)
)
(
put
'vc-
register
'menu-enable
'
(
and
buffer-file-name
(
not
vc-mode
)
))
)
(
define-key
vc-menu-map
[vc-register]
'
(
"Register"
.
vc-register
))
)
(
put
'vc-
rename-file
'menu-enable
'vc-mode
)
(
put
'vc-
version-other-window
'menu-enable
'vc-mode
)
(
put
'vc-
diff
'menu-enable
'vc-mode
)
(
put
'vc-update-change-log
'menu-enable
'
(
eq
(
vc-buffer-backend
)
'RCS
)
)
(
put
'vc-
print-log
'menu-enable
'vc-mode
)
(
put
'vc-
cancel-version
'menu-enable
'vc-mode
)
(
put
'vc-
rev
ert-
buff
er
'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