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

9bef02e1 · Richard M. Stallman · b96d6bbd · 9bef02e1
Commit 9bef02e1 authored Jun 23, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

lisp/vc-hooks.el lisp/vc-hooks.el +4 -0

No files found.
--- 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))