diff options
author | Chunyang Xu <mail@xuchunyang.me> | 2017-05-29 17:03:24 +0800 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-05-29 08:43:06 -0400 |
commit | 1fbbce4d81be0eb251b1aa05312016ad58ffa7f1 (patch) | |
tree | fbb22457d2e590bb626f63560a18e840c98fb854 | |
parent | 1afcf2c9aaf2c97cde0cbd94141eefe4d376166d (diff) | |
download | org-mode-1fbbce4d81be0eb251b1aa05312016ad58ffa7f1.tar.gz |
org-git-link.el: Fix `org-git-find-gitdir'
* contrib/lisp/org-git-link.el (org-git-find-gitdir): Expand
abbreviated directory name.
TINYCHANGE
-rw-r--r-- | contrib/lisp/org-git-link.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/lisp/org-git-link.el b/contrib/lisp/org-git-link.el index 65f25b2..0028daf 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))) |