(vc-git-dir-state): Set the vc-backend property. Do

not disable undo, with-temp-buffer does it by default.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04925a7fc1cc467f04a07c7da700bf05906a0add..7c836942698266c8796939d524282c9f70bd6b1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-01  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-git.el (vc-git-dir-state): Set the vc-backend property.  Do
+       not disable undo, with-temp-buffer does it by default.
+
 2008-01-01  Eric S. Raymond  <esr@snark.thyrsus.com>
 
        * vc-svn.el (vc-svn-parse-status): Set the 'unregisted property

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index 1626d5347ee6796f15e566f2ed781906d15b4ac4..64bcbeb0b2bb1f1964c007a60919f278ada2fbc7 100644 (file)
--- 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)