[nongnu] elpa/orgit c110371202 57/76: orgit--repository-directory: Support relative paths again

[ELPA Syncer]

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

    orgit--repository-directory: Support relative paths again
    
    Fixes #14^b.
---
 orgit.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/orgit.el b/orgit.el
index 317bf040af..8b5c4ddb38 100644
--- a/orgit.el
+++ b/orgit.el
@@ -1,6 +1,6 @@
 ;;; orgit.el --- support for Org links to Magit buffers
 
-;; Copyright (C) 2014-2019  The Magit Project Contributors
+;; Copyright (C) 2014-2020  The Magit Project Contributors
 
 ;; Author: Jonas Bernoulli <jonas@bernoul.li>
 ;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
@@ -423,14 +423,14 @@ store links to the Magit-Revision mode buffers for these 
commits."
       (abbreviate-file-name default-directory)))
 
 (defun orgit--repository-directory (repo)
-  (if (file-name-absolute-p repo)
-      (let ((dir (file-name-as-directory (expand-file-name repo))))
-        (unless (file-exists-p dir)
-          (error "Cannot open link; %S does not exist" dir))
-        dir)
-    (or (cdr (assoc repo (magit-repos-alist)))
-        (error "Cannot open link; no entry for %S in `%s'"
-               repo 'magit-repository-directories))))
+  (let ((dir (or (cdr (assoc repo (magit-repos-alist)))
+                 (file-name-as-directory (expand-file-name repo)))))
+    (cond ((file-exists-p dir) dir)
+          ((string-match-p "\\`[./]" repo)
+           (error "Cannot open link; %S does not exist" dir))
+          (t
+           (error "Cannot open link; no entry for %S in `%s'"
+                  repo 'magit-repository-directories)))))
 
 ;;; _
 (provide 'orgit)