Mercurial > emacs
comparison lisp/vc-dispatcher.el @ 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 | a4d67901ed9a |
| children | 685f73a291fb |
comparison
equal
deleted
inserted
replaced
| 95077:e7ce20fce4c4 | 95078:603a7e650673 |
|---|---|
| 775 (define-key map "\C-?" 'vc-dir-unmark-file-up) | 775 (define-key map "\C-?" 'vc-dir-unmark-file-up) |
| 776 (define-key map "\M-\C-?" 'vc-dir-unmark-all-files) | 776 (define-key map "\M-\C-?" 'vc-dir-unmark-all-files) |
| 777 ;; Movement. | 777 ;; Movement. |
| 778 (define-key map "n" 'vc-dir-next-line) | 778 (define-key map "n" 'vc-dir-next-line) |
| 779 (define-key map " " 'vc-dir-next-line) | 779 (define-key map " " 'vc-dir-next-line) |
| 780 (define-key map "\t" 'vc-dir-next-line) | 780 (define-key map "\t" 'vc-dir-next-directory) |
| 781 (define-key map "p" 'vc-dir-previous-line) | 781 (define-key map "p" 'vc-dir-previous-line) |
| 782 (define-key map [backtab] 'vc-dir-previous-line) | 782 (define-key map [backtab] 'vc-dir-previous-directory) |
| 783 ;;; Rebind paragraph-movement commands. | 783 ;;; Rebind paragraph-movement commands. |
| 784 (define-key map "\M-}" 'vc-dir-next-directory) | 784 (define-key map "\M-}" 'vc-dir-next-directory) |
| 785 (define-key map "\M-{" 'vc-dir-prev-directory) | 785 (define-key map "\M-{" 'vc-dir-previous-directory) |
| 786 (define-key map [M-down] 'vc-dir-next-directory) | 786 (define-key map [C-down] 'vc-dir-next-directory) |
| 787 (define-key map [M-up] 'vc-dir-prev-directory) | 787 (define-key map [C-up] 'vc-dir-previous-directory) |
| 788 ;; The remainder. | 788 ;; The remainder. |
| 789 (define-key map "f" 'vc-dir-find-file) | 789 (define-key map "f" 'vc-dir-find-file) |
| 790 (define-key map "\C-m" 'vc-dir-find-file) | 790 (define-key map "\C-m" 'vc-dir-find-file) |
| 791 (define-key map "o" 'vc-dir-find-file-other-window) | 791 (define-key map "o" 'vc-dir-find-file-other-window) |
| 792 (define-key map "q" 'quit-window) | 792 (define-key map "q" 'quit-window) |
| 793 (define-key map "g" 'vc-dir-refresh) | 793 (define-key map "g" 'vc-dir-refresh) |
| 794 (define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process) | 794 (define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process) |
| 795 (define-key map [(down-mouse-3)] 'vc-dir-menu) | 795 (define-key map [down-mouse-3] 'vc-dir-menu) |
| 796 (define-key map [(mouse-2)] 'vc-dir-toggle-mark) | 796 (define-key map [mouse-2] 'vc-dir-toggle-mark) |
| 797 | 797 |
| 798 ;; Hook up the menu. | 798 ;; Hook up the menu. |
| 799 (define-key map [menu-bar vc-dir-mode] | 799 (define-key map [menu-bar vc-dir-mode] |
| 800 `(menu-item | 800 `(menu-item |
| 801 ;; This is used so that client modes can add mode-specific | 801 ;; This is used so that client modes can add mode-specific |
| 987 (vc-dir-move-to-goal-column) | 987 (vc-dir-move-to-goal-column) |
| 988 (if (vc-dir-fileinfo->directory (ewoc-data next)) | 988 (if (vc-dir-fileinfo->directory (ewoc-data next)) |
| 989 (throw 'foundit nil)))))))) | 989 (throw 'foundit nil)))))))) |
| 990 (goto-char orig)))) | 990 (goto-char orig)))) |
| 991 | 991 |
| 992 (defun vc-dir-prev-directory () | 992 (defun vc-dir-previous-directory () |
| 993 "Go to the previous directory." | 993 "Go to the previous directory." |
| 994 (interactive) | 994 (interactive) |
| 995 (let ((orig (point))) | 995 (let ((orig (point))) |
| 996 (if | 996 (if |
| 997 (catch 'foundit | 997 (catch 'foundit |