Mercurial > emacs

comparison lisp/vc-hooks.el @ 1474:341c17b20f2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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