From caa9540892974196fafcf2dbaf7bab2178b2cd82 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 11 May 2020 23:10:02 -0400
Subject: 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.
---
 piem.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'piem.el')

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
-- 
cgit v1.2.3