get true name for directories, that specified by symlinks

This commit is contained in:
Alex Ott 2010-06-17 13:08:17 +02:00
parent 5744d3ec98
commit 449bebe757

View file

@ -468,7 +468,7 @@ Many Magit faces inherit from this one by default."
dirs))))
(defun magit-get-top-dir (cwd)
(let ((cwd (expand-file-name cwd)))
(let ((cwd (expand-file-name (file-truename cwd))))
(when (file-directory-p cwd)
(let* ((default-directory cwd)
(cdup (magit-git-string "rev-parse" "--show-cdup")))