From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Jun 1997 02:19:40 +0000 (+0000)
Subject: (vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
X-Git-Tag: emacs-20.1~1543
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bef02e187dd99b2d8a6a9a2d815c4ec5df4fe8a;p=emacs.git

(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
---

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))