[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/srht f349b575b8 2/5: srht-paste: Fix srht-paste--annot.
From: |
ELPA Syncer |
Subject: |
[elpa] externals/srht f349b575b8 2/5: srht-paste: Fix srht-paste--annot. |
Date: |
Mon, 6 Jun 2022 12:57:52 -0400 (EDT) |
branch: externals/srht
commit f349b575b8b15571b53d3691a0c26469a05f252c
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>
srht-paste: Fix srht-paste--annot.
* lisp/srht-paste (srht-paste--annot): Remove the use of an unnecessary
assoc function.
---
lisp/srht-paste.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/srht-paste.el b/lisp/srht-paste.el
index c09535a5f0..973b223d45 100644
--- a/lisp/srht-paste.el
+++ b/lisp/srht-paste.el
@@ -74,7 +74,7 @@ For the existing PASTES for the DOMAIN domain name."
(defun srht-paste--annot (domain str)
"Function to add annotations in the completions buffer for STR and DOMAIN."
(srht-annotation (seq _f created visibility)
- (assoc str (srht-paste--candidates domain)) str))
+ (srht-paste--candidates domain) str))
(defun srht-paste--sha (domain)
"Read a FILENAME in the minibuffer, with completion and return SHA.