martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(vc-dired-mode): Added a menu for VC related

Browse Source 
operation. Use backend name as the menu label Suggested by
David Kastrup.
This commit is contained in:
Masatake YAMATO
2007-07-28 18:11:25 +00:00
parent 397c47570a
commit 9d2aebf649
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@@ -1,3 +1,9 @@
2007-07-28 Masatake YAMATO <jet@gyve.org>
* vc.el (vc-dired-mode): Added a menu for VC related
operation. Use backend name as the menu label Suggested by
David Kastrup.
2007-07-28 Alan Mackenzie <acm@muc.de>
Fix problem with modes derived from CC Mode:

9
lisp/vc.el
View File

@@ -2233,8 +2233,13 @@ There is a special command, `*l', to mark all files currently locked."
(set (make-local-variable 'dired-actual-switches)
vc-dired-switches))
(set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display)
(setq mode-name (concat mode-name (symbol-name (vc-responsible-backend
default-directory))))
(let ((backend-name (symbol-name (vc-responsible-backend
default-directory))))
(setq mode-name (concat mode-name backend-name))
;; Add menu after `vc-dired-mode-map' has `dired-mode-map' as the parent.
(let ((vc-dire-menu-map (copy-keymap vc-menu-map)))
(define-key-after (lookup-key vc-dired-mode-map [menu-bar]) [vc]
(cons backend-name vc-dire-menu-map) 'subdir)))
(setq vc-dired-mode t))
(defun vc-dired-toggle-terse-mode ()