Mercurial > emacs
changeset 95078:603a7e650673
(vc-dir-previous-directory): Rename from
vc-dir-prev-directory for consistency with vc-dir-previous-line.
(vc-dir-mode-map): Fix bindings.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 18 May 2008 07:33:07 +0000 |
| parents | e7ce20fce4c4 |
| children | 3068b2728aa4 |
| files | lisp/ChangeLog lisp/vc-dispatcher.el |
| diffstat | 2 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun May 18 07:13:08 2008 +0000 +++ b/lisp/ChangeLog Sun May 18 07:33:07 2008 +0000 @@ -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>
--- a/lisp/vc-dispatcher.el Sun May 18 07:13:08 2008 +0000 +++ b/lisp/vc-dispatcher.el Sun May 18 07:33:07 2008 +0000 @@ -777,14 +777,14 @@ ;; 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 @@ (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 @@ (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)))