# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1208923631 0
# Node ID 55b13d307a7affab532bf14def538fb6d726586d
# Parent  82466e0389bb373cafa429f8fba75fe21949a59d
(vc-git-status-printer): Deal with directories.

diff -r 82466e0389bb -r 55b13d307a7a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 23 04:05:26 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 23 04:07:11 2008 +0000
@@ -1,5 +1,7 @@
 2008-04-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-git.el (vc-git-status-printer): Deal with directories.
+
 	* vc.el (vc-next-action): Look at more than the first file to
 	determine the state.
 
diff -r 82466e0389bb -r 55b13d307a7a lisp/vc-git.el
--- a/lisp/vc-git.el	Wed Apr 23 04:05:26 2008 +0000
+++ b/lisp/vc-git.el	Wed Apr 23 04:07:11 2008 +0000
@@ -87,7 +87,7 @@
 ;; - comment-history (file)			   ??
 ;; - update-changelog (files)			   COULD BE SUPPORTED
 ;; * diff (file &optional rev1 rev2 buffer)	   OK
-;; - revision-completion-table (files)		   NEEDED?
+;; - revision-completion-table (files)		   OK
 ;; - annotate-command (file buf &optional rev)	   OK
 ;; - annotate-time ()				   OK
 ;; - annotate-current-time ()			   NOT NEEDED
@@ -108,7 +108,10 @@
 ;; - find-file-hook ()				   NOT NEEDED
 ;; - find-file-not-found-hook ()                   NOT NEEDED
 
-(eval-when-compile (require 'cl) (require 'vc) (require 'grep))
+(eval-when-compile
+  (require 'cl)
+  (require 'vc)
+  (require 'grep))
 
 (defvar git-commits-coding-system 'utf-8
   "Default coding system for git commits.")
@@ -287,7 +290,9 @@
 
 (defun vc-git-status-printer (info)
   "Pretty-printer for the vc-dir-fileinfo structure."
-  (let* ((state (vc-dir-fileinfo->state info))
+  (let* ((state (if (vc-dir-fileinfo->directory info)
+		    'DIRECTORY
+		  (vc-dir-fileinfo->state info)))
          (extra (vc-dir-fileinfo->extra info))
          (old-perm (when extra (vc-git-extra-fileinfo->old-perm extra)))
          (new-perm (when extra (vc-git-extra-fileinfo->new-perm extra))))