From 738efc8e5c86a6885242af5eba97431ab9a062f3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 21 Feb 1996 21:20:57 +0000 Subject: [PATCH] Move all the put's for menu-enable props to top level. (vc-next-action, vc-toggle-read-only): Enable whenever vc-mode. --- lisp/vc-hooks.el | 28 ++++++++++++++-------------- 1 file 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." '("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-insert-headers '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-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) -- 2.39.2