From 9bef02e187dd99b2d8a6a9a2d815c4ec5df4fe8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Jun 1997 02:19:40 +0000 Subject: [PATCH] (vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot. --- lisp/vc-hooks.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index ee86293b5c9..0b5cba99422 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -1048,6 +1048,10 @@ Returns t if checkout was successful, nil otherwise." () ;;(define-key vc-menu-map [show-files] ;; '("Show Files under VC" . (vc-directory t))) + (define-key vc-menu-map [vc-retrieve-snapshot] + '("Retrieve Snapshot" . vc-retrieve-snapshot)) + (define-key vc-menu-map [vc-create-snapshot] + '("Create Snapshot" . vc-create-snapshot)) (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) (define-key vc-menu-map [separator1] '("----")) (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) -- 2.39.5