Mercurial > emacs
comparison lisp/vc.el @ 2664:334f3eeb459d
(vc-dired-prefix-map): New keymap.
Use it in minor-mode-map-alist for vc-dired-mode.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 04 May 1993 16:40:24 +0000 |
parents | e2e5dfa162b4 |
children | 531099c93082 |
comparison
equal
deleted
inserted
replaced
2663:ed552ce28308 | 2664:334f3eeb459d |
---|---|
807 ))))) | 807 ))))) |
808 | 808 |
809 ;; The VC directory submode. Coopt Dired for this. | 809 ;; The VC directory submode. Coopt Dired for this. |
810 ;; All VC commands get mapped into logical equivalents. | 810 ;; All VC commands get mapped into logical equivalents. |
811 | 811 |
812 (defvar vc-dired-prefix-map (make-sparse-keymap)) | |
813 (define-key vc-dired-prefix-map "\C-xv" vc-prefix-map) | |
814 | |
812 (or (assq 'vc-dired-mode minor-mode-map-alist) | 815 (or (assq 'vc-dired-mode minor-mode-map-alist) |
813 (setq minor-mode-map-alist | 816 (setq minor-mode-map-alist |
814 (cons 'vc-dired-mode minor-mode-map-alist))) | 817 (cons '(vc-dired-mode vc-dired-prefix-map) |
818 minor-mode-map-alist))) | |
815 | 819 |
816 (defun vc-dired-mode () | 820 (defun vc-dired-mode () |
817 "The augmented Dired minor mode used in VC directory buffers. | 821 "The augmented Dired minor mode used in VC directory buffers. |
818 All Dired commands operate normally. Users currently locking listed files | 822 All Dired commands operate normally. Users currently locking listed files |
819 are listed at the left-hand side of the buffer, following the Dired mark area. | 823 are listed in place of the file's owner and group. |
820 Keystrokes bound to VC commands will execute as though they had been called | 824 Keystrokes bound to VC commands will execute as though they had been called |
821 on a buffer attached to the file named in the current Dired buffer line." | 825 on a buffer attached to the file named in the current Dired buffer line." |
822 (setq vc-dired-mode t) | 826 (setq vc-dired-mode t) |
823 (setq vc-mode " under VC")) | 827 (setq vc-mode " under VC")) |
824 | 828 |