minor vc-dir fix/convenience

[Eric M. Ludlam]

Hi,

  I upgraded to the latest CVS Emacs that includes the new vc-dir
implementation.  Before hand, I'd type:

C-x v d ~/cedet

but after the upgrade, this stopped working, and I just assumed
things were in development.  I updated Emacs from CVS again today, and
the issue persisted.  I looked through for a while and kept trying
things out, and eventually discovered that

C-x v d ~/cedet/

did work.  Thus, the below simple fix.

Thanks
Eric



*** vc-dir.el.~1.20.~   2008-08-05 23:49:03.000000000 -0400
--- vc-dir.el   2008-08-22 19:48:30.000000000 -0400
***************
*** 1112,1120 ****
      ;; therefore it makes sense to always do that.
      ;; Otherwise if you do C-x v d -> C-x C-f -> C-c v d
      ;; you may get a new *vc-dir* buffer, different from the original
!     (file-truename (read-file-name "VC status for directory: "
!                                    default-directory default-directory t
!                                    nil #'file-directory-p))
      (if current-prefix-arg
        (intern
         (completing-read
--- 1112,1122 ----
      ;; therefore it makes sense to always do that.
      ;; Otherwise if you do C-x v d -> C-x C-f -> C-c v d
      ;; you may get a new *vc-dir* buffer, different from the original
!     (file-truename
!      (file-name-as-directory
!       (read-file-name "VC status for directory: "
!                     default-directory default-directory t
!                     nil #'file-directory-p)))
      (if current-prefix-arg
        (intern
         (completing-read