diff options
| author | Masatake YAMATO <jet@gyve.org> | 2007-07-28 18:11:25 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2007-07-28 18:11:25 +0000 |
| commit | 9d2aebf64918002fe3c1ad9ffcdbb69b0844159e (patch) | |
| tree | b0c7bb1536147dfe933b2a68465190bc5b0fcd6e | |
| parent | 397c47570ae4b1f545cae171b07a84726a63f9ac (diff) | |
| download | emacs-9d2aebf64918002fe3c1ad9ffcdbb69b0844159e.tar.gz emacs-9d2aebf64918002fe3c1ad9ffcdbb69b0844159e.tar.bz2 emacs-9d2aebf64918002fe3c1ad9ffcdbb69b0844159e.zip | |
(vc-dired-mode): Added a menu for VC related
operation. Use backend name as the menu label Suggested by
David Kastrup.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/vc.el | 9 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee84d615046..a9dc3eed6aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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: diff --git a/lisp/vc.el b/lisp/vc.el index 08baa16e6b4..6504a7ea644 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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 () |