Mercurial > emacs
comparison lisp/vc.el @ 82191:b8ea0870f6de
(vc-dired-mode): Added a menu for VC related
operation. Use backend name as the menu label Suggested by
David Kastrup.
author | Masatake YAMATO <jet@gyve.org> |
---|---|
date | Sat, 28 Jul 2007 18:11:25 +0000 |
parents | f04985ac29f2 |
children | feaa257d4fe3 |
comparison
equal
deleted
inserted
replaced
82190:3b2cbc59143e | 82191:b8ea0870f6de |
---|---|
2231 (and (boundp 'vc-dired-switches) | 2231 (and (boundp 'vc-dired-switches) |
2232 vc-dired-switches | 2232 vc-dired-switches |
2233 (set (make-local-variable 'dired-actual-switches) | 2233 (set (make-local-variable 'dired-actual-switches) |
2234 vc-dired-switches)) | 2234 vc-dired-switches)) |
2235 (set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display) | 2235 (set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display) |
2236 (setq mode-name (concat mode-name (symbol-name (vc-responsible-backend | 2236 (let ((backend-name (symbol-name (vc-responsible-backend |
2237 default-directory)))) | 2237 default-directory)))) |
2238 (setq mode-name (concat mode-name backend-name)) | |
2239 ;; Add menu after `vc-dired-mode-map' has `dired-mode-map' as the parent. | |
2240 (let ((vc-dire-menu-map (copy-keymap vc-menu-map))) | |
2241 (define-key-after (lookup-key vc-dired-mode-map [menu-bar]) [vc] | |
2242 (cons backend-name vc-dire-menu-map) 'subdir))) | |
2238 (setq vc-dired-mode t)) | 2243 (setq vc-dired-mode t)) |
2239 | 2244 |
2240 (defun vc-dired-toggle-terse-mode () | 2245 (defun vc-dired-toggle-terse-mode () |
2241 "Toggle terse display in VC Dired." | 2246 "Toggle terse display in VC Dired." |
2242 (interactive) | 2247 (interactive) |