piem-inbox-coderepo: Fix incorrect equality function

alist-get uses eq as the default test function, so it was only working
by chance.  Rather than calling alist-get with three additional
arguments in order to specify TESTFN, switch to assoc.

1 files changed, 1 insertions, 2 deletions

diff --git a/piem.el b/piem.el
index c3f7ed2..872da22 100644
--- a/piem.el
+++ b/piem.el
@@ -122,8 +122,7 @@ intended to be used by libraries implementing a function for
 (defun piem-inbox-coderepo ()
   "Return the code repository of current buffer's inbox."
   (when-let ((p (piem-inbox))
-             (repo (plist-get
-                    (alist-get p piem-inboxes) :coderepo)))
+             (repo (plist-get (cdr (assoc p piem-inboxes)) :coderepo)))
     (expand-file-name repo)))
 
 ;;;###autoload