# HG changeset patch # User Andr Spiegel # Date 870612511 0 # Node ID 3a841692390cd3d105e68a8b8eef47789c182558 # Parent b605b8dbb880c2f8fd302d11f3aa08d2156c7c3a (vc-menu-map): Replace entries for "Check In" and "Check Out" with new entry "Check In/Out" (calling vc-next-action). diff -r b605b8dbb880 -r 3a841692390c lisp/vc-hooks.el --- a/lisp/vc-hooks.el Sun Aug 03 12:47:26 1997 +0000 +++ b/lisp/vc-hooks.el Sun Aug 03 12:48:31 1997 +0000 @@ -1093,8 +1093,7 @@ '("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 @@ (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)