diff options
| author | Eric S. Raymond | 2008-05-07 21:27:41 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 2008-05-07 21:27:41 +0000 |
| commit | 4903369afeabaf913164f07fccd285e8284627ff (patch) | |
| tree | 493ff84060d00c69c71c88fe713f191f52a24792 /lisp/vc-git.el | |
| parent | 9ba4a350430255da3e7465325b66ee99e5fdae7e (diff) | |
| download | emacs-4903369afeabaf913164f07fccd285e8284627ff.tar.gz emacs-4903369afeabaf913164f07fccd285e8284627ff.zip | |
Remove VC-Dired and backend dir-state methods.
Diffstat (limited to 'lisp/vc-git.el')
| -rw-r--r-- | lisp/vc-git.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 2da2c7e6937..27b35c4240b 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el | |||
| @@ -50,7 +50,6 @@ | |||
| 50 | ;; * registered (file) OK | 50 | ;; * registered (file) OK |
| 51 | ;; * state (file) OK | 51 | ;; * state (file) OK |
| 52 | ;; - state-heuristic (file) NOT NEEDED | 52 | ;; - state-heuristic (file) NOT NEEDED |
| 53 | ;; - dir-state (dir) OK | ||
| 54 | ;; * working-revision (file) OK | 53 | ;; * working-revision (file) OK |
| 55 | ;; - latest-on-branch-p (file) NOT NEEDED | 54 | ;; - latest-on-branch-p (file) NOT NEEDED |
| 56 | ;; * checkout-model (files) OK | 55 | ;; * checkout-model (files) OK |
| @@ -175,14 +174,6 @@ | |||
| 175 | (vc-file-setprop file 'vc-state state)) | 174 | (vc-file-setprop file 'vc-state state)) |
| 176 | (setq start (point)))))) | 175 | (setq start (point)))))) |
| 177 | 176 | ||
| 178 | (defun vc-git-dir-state (dir) | ||
| 179 | "Git-specific version of `dir-state'." | ||
| 180 | (vc-git--ls-files-state 'up-to-date "-c") | ||
| 181 | (vc-git--ls-files-state 'edited "-m") | ||
| 182 | (vc-git--ls-files-state 'removed "-d") | ||
| 183 | (vc-git--ls-files-state 'ignored "-o" "-i" "--exclude-standard") | ||
| 184 | (vc-git--ls-files-state nil "-o" "--exclude-standard")) | ||
| 185 | |||
| 186 | (defun vc-git-working-revision (file) | 177 | (defun vc-git-working-revision (file) |
| 187 | "Git-specific version of `vc-working-revision'." | 178 | "Git-specific version of `vc-working-revision'." |
| 188 | (let ((str (with-output-to-string | 179 | (let ((str (with-output-to-string |