[nongnu] elpa/orgit e8db8dc741 69/76: orgit-*-complete-link: Respect orgit-store-repository-id

[ELPA Syncer]

branch: elpa/orgit
commit e8db8dc74106dfabe316e63cc9032dd7bb9bc598
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    orgit-*-complete-link: Respect orgit-store-repository-id
    
    Closes #37.
---
 orgit.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/orgit.el b/orgit.el
index 64904eb6d3..f3b3782c7a 100644
--- a/orgit.el
+++ b/orgit.el
@@ -271,7 +271,8 @@ In that case `orgit-rev-store' stores one or more links 
instead."
 
 ;;;###autoload
 (defun orgit-status-complete-link (&optional arg)
-  (concat "orgit:" (abbreviate-file-name (magit-read-repository arg))))
+  (let ((default-directory (magit-read-repository arg)))
+    (concat "orgit:" (orgit--current-repository))))
 
 ;;; Log
 
@@ -334,7 +335,7 @@ In that case `orgit-rev-store' stores one or more links 
instead."
 (defun orgit-log-complete-link (&optional arg)
   (let ((default-directory (magit-read-repository arg)))
     (format "orgit-log:%s::%s"
-            (abbreviate-file-name default-directory)
+            (orgit--current-repository)
             (magit-read-branch-or-commit "Revision"))))
 
 ;;; Revision
@@ -395,7 +396,7 @@ store links to the Magit-Revision mode buffers for these 
commits."
 (defun orgit-rev-complete-link (&optional arg)
   (let ((default-directory (magit-read-repository arg)))
     (format "orgit-rev:%s::%s"
-            (abbreviate-file-name default-directory)
+            (orgit--current-repository)
             (magit-read-branch-or-commit "Revision"))))
 
 ;;; Export