mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* vc.el (vc-dired-mode): Show backend name as part of mode name.

Browse source
This commit is contained in:
Masatake YAMATO 2007-06-15 13:56:48 +00:00
parent efc64f821d
commit 3827b5322a
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2007-06-15 Masatake YAMATO <jet@gyve.org>
* vc.el (vc-dired-mode): Show backend name as part of mode name.
2007-06-14 Chong Yidong <cyd@stupidchicken.com>
* wid-edit.el (widget-default-create): Move ?h handling here...

4
lisp/vc.el
View file

@ -2096,7 +2096,7 @@ See Info node `Merging'."
(define-key vmap "t" 'vc-dired-toggle-terse-mode)
map))
(define-derived-mode vc-dired-mode dired-mode "Dired under VC"
(define-derived-mode vc-dired-mode dired-mode "Dired under "
"The major mode used in VC directory buffers.
It works like Dired, but lists only files under version control, with
@ -2156,6 +2156,8 @@ 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))))
(setq vc-dired-mode t))
(defun vc-dired-toggle-terse-mode ()