Fix bug in org-git-link.el

contrib/ChangeLog

@@ -1,3 +1,8 @@
+2010-05-11  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* lisp/org-git-link.el (org-git-open)
+	(org-git-create-git-link): expand file name.
+
 2010-04-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* lisp/org-toc.el (org-toc-cycle-subtree)

contrib/lisp/org-git-link.el

@@ -96,7 +96,7 @@
   (let* ((strlist (org-git-split-string str))
          (filepath (first strlist))
          (commit (second strlist))
-         (dirlist (org-git-find-gitdir filepath))
+         (dirlist (org-git-find-gitdir (file-truename filepath)))
          (gitdir (first dirlist))
          (relpath (second dirlist)))
     (org-git-open-file-internal gitdir (concat commit ":" relpath))))
@@ -168,7 +168,7 @@
 (defun org-git-create-git-link (file)
   "Create git link part to file at specific time"
   (interactive "FFile: ")
-  (let* ((gitdir (first (org-git-find-gitdir file)))
+  (let* ((gitdir (first (org-git-find-gitdir (file-truename file))))
          (branchname (org-git-get-current-branch gitdir))
          (timestring (format-time-string "%Y-%m-%d" (current-time))))
     (org-make-link "git:" file "::" (org-git-create-searchstring branchname timestring))))