diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-21 17:53:04 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-21 17:53:04 +0000 |
| commit | 45b24b4de643475dc82737a89bf9d1c250ce3d9e (patch) | |
| tree | 8613ae3aeedd29793f98a06f9a8503513a08b83e /lisp/vc-hg.el | |
| parent | e345c46e5613f29d17a1c9e6c663c80925e33129 (diff) | |
| download | emacs-45b24b4de643475dc82737a89bf9d1c250ce3d9e.tar.gz | |
* vc-hooks.el (vc-default-mode-line-string): Add case for added files.
* vc.el (vc-default-dired-state-info): Use just "modified".
* vc-cvs.el (vc-cvs-state-heuristic): Turn rev 0 into `added'.
(vc-cvs-mode-line-string): Make use of the better default.
(vc-cvs-parse-entry): Use the new `added'.
(vc-cvs-dired-state-info): Remove.
* vc-svn.el (vc-svn-dired-state-info): Remove.
* vc-hg.el (vc-hg-dired-state-info): Remove.
* vc-git.el (vc-git-dired-state-info): Remove.
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 46617fe19ac..8e55eb20174 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -449,15 +449,6 @@ REV is the revision to check out into WORKFILE." (defun vc-hg-workfile-unchanged-p (file) (eq 'up-to-date (vc-hg-state file))) -(defun vc-hg-dired-state-info (file) - "Hg-specific version of `vc-dired-state-info'." - (let ((hg-state (vc-state file))) - (if (eq hg-state 'edited) - (if (equal (vc-working-revision file) "0") - "(added)" "(modified)") - ;; fall back to the default VC representation - (vc-default-dired-state-info 'Hg file)))) - ;; Modelled after the similar function in vc-bzr.el (defun vc-hg-revert (file &optional contents-done) (unless contents-done @@ -465,8 +456,8 @@ REV is the revision to check out into WORKFILE." ;;; Hg specific functionality. -;;; XXX This functionality is experimental/work in progress. It might -;;; change without notice. +;; XXX This functionality is experimental/work in progress. It might +;; change without notice. (defvar vc-hg-extra-menu-map (let ((map (make-sparse-keymap))) (define-key map [incoming] '(menu-item "Show incoming" vc-hg-incoming)) |