From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 18 May 2008 07:33:07 +0000 (+0000)
Subject: (vc-dir-previous-directory): Rename from
X-Git-Tag: emacs-pretest-23.0.90~5456
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d002d68fdcceface95296f4966f89cf14de9f8fe;p=emacs.git

(vc-dir-previous-directory): Rename from
vc-dir-prev-directory for consistency with vc-dir-previous-line.
(vc-dir-mode-map): Fix bindings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1397db4779b..20174ceeec1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2008-05-18  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-dispatcher.el (vc-dir-previous-directory): Rename from
+	vc-dir-prev-directory for consistency with vc-dir-previous-line.
+	(vc-dir-mode-map): Fix bindings.
+
 	* vc-bzr.el (vc-bzr-after-dir-status): Remove unused binding.
 
 2008-05-18  Jay Belanger  <jay.p.belanger@gmail.com>
diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 4e3267470af..8c56b982dbf 100644
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -777,14 +777,14 @@ See `run-hooks'."
     ;; Movement.
     (define-key map "n" 'vc-dir-next-line)
     (define-key map " " 'vc-dir-next-line)
-    (define-key map "\t" 'vc-dir-next-line)
+    (define-key map "\t" 'vc-dir-next-directory)
     (define-key map "p" 'vc-dir-previous-line)
-    (define-key map [backtab] 'vc-dir-previous-line)
+    (define-key map [backtab] 'vc-dir-previous-directory)
     ;;; Rebind paragraph-movement commands.
     (define-key map "\M-}" 'vc-dir-next-directory)
-    (define-key map "\M-{" 'vc-dir-prev-directory)
-    (define-key map [M-down] 'vc-dir-next-directory)
-    (define-key map [M-up] 'vc-dir-prev-directory)
+    (define-key map "\M-{" 'vc-dir-previous-directory)
+    (define-key map [C-down] 'vc-dir-next-directory)
+    (define-key map [C-up] 'vc-dir-previous-directory)
     ;; The remainder.
     (define-key map "f" 'vc-dir-find-file)
     (define-key map "\C-m" 'vc-dir-find-file)
@@ -792,8 +792,8 @@ See `run-hooks'."
     (define-key map "q" 'quit-window)
     (define-key map "g" 'vc-dir-refresh)
     (define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process)
-    (define-key map [(down-mouse-3)] 'vc-dir-menu)
-    (define-key map [(mouse-2)] 'vc-dir-toggle-mark)
+    (define-key map [down-mouse-3] 'vc-dir-menu)
+    (define-key map [mouse-2] 'vc-dir-toggle-mark)
 
     ;; Hook up the menu.
     (define-key map [menu-bar vc-dir-mode]
@@ -989,7 +989,7 @@ If a prefix argument is given, move by that many lines."
 			   (throw 'foundit nil))))))))
 	(goto-char orig))))
 
-(defun vc-dir-prev-directory ()
+(defun vc-dir-previous-directory ()
   "Go to the previous directory."
   (interactive)
   (let ((orig (point)))