aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-02-21 21:20:57 +0000
committerKarl Heuer1996-02-21 21:20:57 +0000
commit738efc8e5c86a6885242af5eba97431ab9a062f3 (patch)
treec56a26b4feeb764632439656513dadf29fdd9f37
parent8c379895801bbb374d329c3797195d474252dfd0 (diff)
downloademacs-738efc8e5c86a6885242af5eba97431ab9a062f3.tar.gz
emacs-738efc8e5c86a6885242af5eba97431ab9a062f3.zip
Move all the put's for menu-enable props to top level.
(vc-next-action, vc-toggle-read-only): Enable whenever vc-mode.
-rw-r--r--lisp/vc-hooks.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index c255be1a93d..429a74cd32a 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -1022,20 +1022,20 @@ Returns t if checkout was successful, nil otherwise."
1022 '("Insert Header" . vc-insert-headers)) 1022 '("Insert Header" . vc-insert-headers))
1023 (define-key vc-menu-map [vc-menu-check-in] '("Check In" . vc-next-action)) 1023 (define-key vc-menu-map [vc-menu-check-in] '("Check In" . vc-next-action))
1024 (define-key vc-menu-map [vc-check-out] '("Check Out" . vc-toggle-read-only)) 1024 (define-key vc-menu-map [vc-check-out] '("Check Out" . vc-toggle-read-only))
1025 (define-key vc-menu-map [vc-register] '("Register" . vc-register)) 1025 (define-key vc-menu-map [vc-register] '("Register" . vc-register)))
1026 (put 'vc-rename-file 'menu-enable 'vc-mode) 1026
1027 (put 'vc-version-other-window 'menu-enable 'vc-mode) 1027(put 'vc-rename-file 'menu-enable 'vc-mode)
1028 (put 'vc-diff 'menu-enable 'vc-mode) 1028(put 'vc-version-other-window 'menu-enable 'vc-mode)
1029 (put 'vc-update-change-log 'menu-enable 1029(put 'vc-diff 'menu-enable 'vc-mode)
1030 '(eq (vc-buffer-backend) 'RCS)) 1030(put 'vc-update-change-log 'menu-enable
1031 (put 'vc-print-log 'menu-enable 'vc-mode) 1031 '(eq (vc-buffer-backend) 'RCS))
1032 (put 'vc-cancel-version 'menu-enable 'vc-mode) 1032(put 'vc-print-log 'menu-enable 'vc-mode)
1033 (put 'vc-revert-buffer 'menu-enable 'vc-mode) 1033(put 'vc-cancel-version 'menu-enable 'vc-mode)
1034 (put 'vc-insert-headers 'menu-enable 'vc-mode) 1034(put 'vc-revert-buffer 'menu-enable 'vc-mode)
1035 (put 'vc-next-action 'menu-enable '(and vc-mode (not buffer-read-only))) 1035(put 'vc-insert-headers 'menu-enable 'vc-mode)
1036 (put 'vc-toggle-read-only 'menu-enable '(and vc-mode buffer-read-only)) 1036(put 'vc-next-action 'menu-enable 'vc-mode)
1037 (put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) 1037(put 'vc-toggle-read-only 'menu-enable 'vc-mode)
1038 ) 1038(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode)))
1039 1039
1040(provide 'vc-hooks) 1040(provide 'vc-hooks)
1041 1041