branch: externals/srht
commit f349b575b8b15571b53d3691a0c26469a05f252c
Author: Aleksandr Vityazev <[email protected]>
Commit: Aleksandr Vityazev <[email protected]>
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.
