[PATCH] Ensure trailing slash for default-directory

[Leo]

commit 79fb07f615dc8fac04eff247134b5f6658a48ecf (HEAD, refs/heads/master)
Date:   Wed Dec 1 08:22:22 2010 +0000

    Ensure trailing slash for default-directory

        Modified magit.el
diff --git a/magit.el b/magit.el
index f0ff918..b4a439f 100644
--- a/magit.el
+++ b/magit.el
@@ -715,7 +715,7 @@ Many Magit faces inherit from this one by default."
 (defun magit-get-top-dir (cwd)
   (let ((cwd (expand-file-name (file-truename cwd))))
     (when (file-directory-p cwd)
-      (let* ((default-directory cwd)
+      (let* ((default-directory (file-name-as-directory cwd))
              (cdup (magit-git-string "rev-parse" "--show-cdup")))
         (when cdup
           (file-name-as-directory (expand-file-name cdup cwd)))))))