diff options
| author | Richard M. Stallman | 1997-06-23 02:19:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-23 02:19:40 +0000 |
| commit | 9bef02e187dd99b2d8a6a9a2d815c4ec5df4fe8a (patch) | |
| tree | ff683bb078f2dad234322411d06d6051236afe39 | |
| parent | b96d6bbdda20d6a91280b14a7838d66bf0463682 (diff) | |
| download | emacs-9bef02e187dd99b2d8a6a9a2d815c4ec5df4fe8a.tar.gz emacs-9bef02e187dd99b2d8a6a9a2d815c4ec5df4fe8a.zip | |
(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
| -rw-r--r-- | lisp/vc-hooks.el | 4 |
1 files changed, 4 insertions, 0 deletions
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." | |||
| 1048 | () | 1048 | () |
| 1049 | ;;(define-key vc-menu-map [show-files] | 1049 | ;;(define-key vc-menu-map [show-files] |
| 1050 | ;; '("Show Files under VC" . (vc-directory t))) | 1050 | ;; '("Show Files under VC" . (vc-directory t))) |
| 1051 | (define-key vc-menu-map [vc-retrieve-snapshot] | ||
| 1052 | '("Retrieve Snapshot" . vc-retrieve-snapshot)) | ||
| 1053 | (define-key vc-menu-map [vc-create-snapshot] | ||
| 1054 | '("Create Snapshot" . vc-create-snapshot)) | ||
| 1051 | (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) | 1055 | (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) |
| 1052 | (define-key vc-menu-map [separator1] '("----")) | 1056 | (define-key vc-menu-map [separator1] '("----")) |
| 1053 | (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) | 1057 | (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) |