# HG changeset patch # User Dan Nicolaescu # Date 1216693210 0 # Node ID 44c60e2cb9ef316e1613c3b38d0b4e89542e285f # Parent 938dd02137bc121fd7ce3e57602072e12a605628 (vc-git-status-printer): Update the directory display to match the default. diff -r 938dd02137bc -r 44c60e2cb9ef lisp/ChangeLog --- a/lisp/ChangeLog Tue Jul 22 02:18:29 2008 +0000 +++ b/lisp/ChangeLog Tue Jul 22 02:20:10 2008 +0000 @@ -1,5 +1,8 @@ 2008-07-22 Dan Nicolaescu + * vc-git.el (vc-git-status-printer): Update the directory display + to match the default. + * vc-dir.el (vc-dir-recompute-file-state): Add workaround for CVS. 2008-07-21 Chong Yidong diff -r 938dd02137bc -r 44c60e2cb9ef lisp/vc-git.el --- a/lisp/vc-git.el Tue Jul 22 02:18:29 2008 +0000 +++ b/lisp/vc-git.el Tue Jul 22 02:20:10 2008 +0000 @@ -268,9 +268,8 @@ (defun vc-git-status-printer (info) "Pretty-printer for the vc-dir-fileinfo structure." - (let* ((state (if (vc-dir-fileinfo->directory info) - 'DIRECTORY - (vc-dir-fileinfo->state info))) + (let* ((isdir (vc-dir-fileinfo->directory info)) + (state (if isdir "" (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))))