branch: externals/marginalia
commit 327ad58bd69a372dc10dbb5b5d3d47f246e28020
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
use aref instead of elt
---
marginalia.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index d99a4ef..90b15f3 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -332,7 +332,7 @@ This hash table is needed to speed up
`marginalia-annotate-binding'.")
(defun marginalia-annotate-consult-buffer-class (cand)
"Annotate consult-buffer CAND with the buffer class."
(marginalia--fields
- ((pcase (- (elt cand 0) #x100000)
+ ((pcase (- (aref cand 0) #x100000)
(?b "Buffer")
(?h "Hidden Buffer")
(?f "File")
@@ -345,7 +345,7 @@ This hash table is needed to speed up
`marginalia-annotate-binding'.")
;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
(defun marginalia-annotate-consult-buffer-full (cand)
"Annotate consult-buffer CAND with the buffer class."
- (pcase (- (elt cand 0) #x100000)
+ (pcase (- (aref cand 0) #x100000)
((or ?b ?h ?p) (marginalia-annotate-buffer (substring cand 1)))
((or ?f ?q) (marginalia-annotate-file (substring cand 1)))
(?m (marginalia-annotate-bookmark (substring cand 1)))
