andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-menu-map): Replace entries for "Check In" and "Check Out" with

Browse source 
new entry "Check In/Out" (calling vc-next-action).
This commit is contained in:
André Spiegel 1997-08-03 12:48:31 +00:00
parent 7e6ed9b9b5
commit 9314395d3f
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc-hooks.el
View file

@ -1093,8 +1093,7 @@ Returns t if checkout was successful, nil otherwise."
'("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 @@ Returns t if checkout was successful, nil otherwise."
(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)