diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-01 19:47:21 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-01 19:47:21 +0000 |
| commit | 21838dc0deff03c2992908e9fea5bbe5369c27c8 (patch) | |
| tree | ba748a02d2360f570ad88b46e7dc9dc9136fcb28 /lisp/vc-git.el | |
| parent | 905373c5048424a7b783ac88509924d3b6fd94f7 (diff) | |
| download | emacs-21838dc0deff03c2992908e9fea5bbe5369c27c8.tar.gz emacs-21838dc0deff03c2992908e9fea5bbe5369c27c8.tar.bz2 emacs-21838dc0deff03c2992908e9fea5bbe5369c27c8.zip | |
(vc-git-dir-state): Set the vc-backend property. Do
not disable undo, with-temp-buffer does it by default.
Diffstat (limited to 'lisp/vc-git.el')
| -rw-r--r-- | lisp/vc-git.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 1626d5347ee..64bcbeb0b2b 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -155,7 +155,6 @@ "Git-specific version of `dir-state'." ;; FIXME: This can't set 'ignored yet (with-temp-buffer - (buffer-disable-undo) ;; Because these buffers can get huge (vc-git-command (current-buffer) nil nil "ls-files" "-t" "-c" "-m" "-o") (goto-char (point-min)) (let ((status-char nil) @@ -172,12 +171,16 @@ ;; should not show up in vc-dired, so don't deal with them ;; here. ((eq status-char ?H) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'up-to-date)) ((eq status-char ?R) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'removed)) ((eq status-char ?M) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'edited)) ((eq status-char ?C) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'edited)) ((eq status-char ??) (vc-file-setprop file 'vc-backend 'none) |