From 15a25f5dba882aa913b12ae42fa89874b3cd8a0d Mon Sep 17 00:00:00 2001 From: Chunyang Xu Date: Mon, 29 May 2017 17:03:24 +0800 Subject: [PATCH] org-git-link.el: Fix `org-git-find-gitdir' * contrib/lisp/org-git-link.el (org-git-find-gitdir): Expand abbreviated directory name. --- contrib/lisp/org-git-link.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/org-git-link.el b/contrib/lisp/org-git-link.el index 65f25b294..0028daf9b 100644 --- a/contrib/lisp/org-git-link.el +++ b/contrib/lisp/org-git-link.el @@ -126,7 +126,7 @@ the path. Example: (org-git-find-gitdir \"~/gitrepos/foo/bar.txt\") returns '(\"/home/user/gitrepos/.git\" \"foo/bar.txt\"). When not in a git repository, return nil." - (let ((dir (file-name-directory path)) + (let ((dir (expand-file-name (file-name-directory path))) (relpath (file-name-nondirectory path))) (catch 'toplevel (while (not (file-exists-p (expand-file-name ".git" dir))) -- 2.13.0