Mercurial > emacs
comparison lisp/vc-hooks.el @ 1474:341c17b20f2a
(vc-prefix-map): Put vc-diff on = and vc-directory on d.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 24 Oct 1992 20:07:08 +0000 |
parents | 7f3e86c53165 |
children | ef257d7ca34a |
comparison
equal
deleted
inserted
replaced
1473:6359d8850fa3 | 1474:341c17b20f2a |
---|---|
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
6 ;; Version: 4.0 | 6 ;; Version: 4.0 |
7 | 7 |
8 ;; $Id: vc-hooks.el,v 1.4 1992/10/20 06:44:21 rms Exp rms $ | 8 ;; $Id: vc-hooks.el,v 1.5 1992/10/20 18:43:33 rms Exp rms $ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
165 (progn | 165 (progn |
166 (setq vc-prefix-map (make-sparse-keymap)) | 166 (setq vc-prefix-map (make-sparse-keymap)) |
167 (define-key global-map "\C-xv" vc-prefix-map) | 167 (define-key global-map "\C-xv" vc-prefix-map) |
168 (define-key vc-prefix-map "a" 'vc-update-change-log) | 168 (define-key vc-prefix-map "a" 'vc-update-change-log) |
169 (define-key vc-prefix-map "c" 'vc-cancel-version) | 169 (define-key vc-prefix-map "c" 'vc-cancel-version) |
170 (define-key vc-prefix-map "d" 'vc-diff) | 170 (define-key vc-prefix-map "d" 'vc-directory) |
171 (define-key vc-prefix-map "h" 'vc-insert-headers) | 171 (define-key vc-prefix-map "h" 'vc-insert-headers) |
172 (define-key vc-prefix-map "i" 'vc-register) | 172 (define-key vc-prefix-map "i" 'vc-register) |
173 (define-key vc-prefix-map "l" 'vc-print-log) | 173 (define-key vc-prefix-map "l" 'vc-print-log) |
174 (define-key vc-prefix-map "r" 'vc-retrieve-snapshot) | 174 (define-key vc-prefix-map "r" 'vc-retrieve-snapshot) |
175 (define-key vc-prefix-map "s" 'vc-create-snapshot) | 175 (define-key vc-prefix-map "s" 'vc-create-snapshot) |
176 (define-key vc-prefix-map "u" 'vc-revert-buffer) | 176 (define-key vc-prefix-map "u" 'vc-revert-buffer) |
177 (define-key vc-prefix-map "v" 'vc-next-action) | 177 (define-key vc-prefix-map "v" 'vc-next-action) |
178 (define-key vc-prefix-map "=" 'vc-directory) | 178 (define-key vc-prefix-map "=" 'vc-diff) |
179 )) | 179 )) |
180 | 180 |
181 (provide 'vc-hooks) | 181 (provide 'vc-hooks) |
182 | 182 |
183 ;;; vc-hooks.el ends here | 183 ;;; vc-hooks.el ends here |