(vc-prefix-map): Put vc-diff on = and vc-directory on d.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 36bf47a9648c50635fe1bc9442eb3eff40727fc2..fc84af999589a370c2d47665dc661a1b0c693ead 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;     $Id: vc-hooks.el,v 1.4 1992/10/20 06:44:21 rms Exp rms $        
+;;     $Id: vc-hooks.el,v 1.5 1992/10/20 18:43:33 rms Exp rms $        
 
 ;; This file is part of GNU Emacs.
 
@@ -167,7 +167,7 @@ Returns t if checkout was successful, nil otherwise."
       (define-key global-map "\C-xv" vc-prefix-map)
       (define-key vc-prefix-map "a" 'vc-update-change-log)
       (define-key vc-prefix-map "c" 'vc-cancel-version)
-      (define-key vc-prefix-map "d" 'vc-diff)
+      (define-key vc-prefix-map "d" 'vc-directory)
       (define-key vc-prefix-map "h" 'vc-insert-headers)
       (define-key vc-prefix-map "i" 'vc-register)
       (define-key vc-prefix-map "l" 'vc-print-log)
@@ -175,7 +175,7 @@ Returns t if checkout was successful, nil otherwise."
       (define-key vc-prefix-map "s" 'vc-create-snapshot)
       (define-key vc-prefix-map "u" 'vc-revert-buffer)
       (define-key vc-prefix-map "v" 'vc-next-action)
-      (define-key vc-prefix-map "=" 'vc-directory)
+      (define-key vc-prefix-map "=" 'vc-diff)
       ))
 
 (provide 'vc-hooks)