summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-05-11 23:10:02 -0400
committerKyle Meyer <kyle@kyleam.com>2020-05-11 23:45:13 -0400
commitcaa9540892974196fafcf2dbaf7bab2178b2cd82 (patch)
tree16772e593fef09aa336ec9ccc2a1a3be08e0d3b8
parentf25664210291a853d61f11fddccf411358794d99 (diff)
downloadpiem-caa9540892974196fafcf2dbaf7bab2178b2cd82.tar.gz
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.
-rw-r--r--piem.el3
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