diff options
| -rw-r--r-- | lisp/vc-hooks.el | 28 |
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 | ||