Mercurial > emacs
comparison lisp/vc-git.el @ 79687:2fe98820fa48
* vc-git.el (vc-git-dir-state):
* vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 04 Jan 2008 07:59:25 +0000 |
parents | 5f49af3d292b |
children | 73661ddc7ac7 |
comparison
equal
deleted
inserted
replaced
79686:06c5a50f7aa2 | 79687:2fe98820fa48 |
---|---|
165 ;; R removed/deleted | 165 ;; R removed/deleted |
166 ;; K to be killed | 166 ;; K to be killed |
167 ;; should not show up in vc-dired, so don't deal with them | 167 ;; should not show up in vc-dired, so don't deal with them |
168 ;; here. | 168 ;; here. |
169 ((eq status-char ?H) | 169 ((eq status-char ?H) |
170 (vc-file-setprop file 'vc-backend 'Git) | |
170 (vc-file-setprop file 'vc-state 'up-to-date)) | 171 (vc-file-setprop file 'vc-state 'up-to-date)) |
171 ((eq status-char ?M) | 172 ((eq status-char ?M) |
173 (vc-file-setprop file 'vc-backend 'Git) | |
172 (vc-file-setprop file 'vc-state 'edited)) | 174 (vc-file-setprop file 'vc-state 'edited)) |
173 ((eq status-char ?C) | 175 ((eq status-char ?C) |
176 (vc-file-setprop file 'vc-backend 'Git) | |
174 (vc-file-setprop file 'vc-state 'edited)) | 177 (vc-file-setprop file 'vc-state 'edited)) |
175 ((eq status-char ??) | 178 ((eq status-char ??) |
176 (vc-file-setprop file 'vc-backend 'none) | 179 (vc-file-setprop file 'vc-backend 'none) |
177 (vc-file-setprop file 'vc-state 'nil))) | 180 (vc-file-setprop file 'vc-state 'nil))) |
178 (forward-line))))) | 181 (forward-line))))) |