emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/marginalia 327ad58 165/241: use aref instead of elt


From: Stefan Monnier
Subject: [elpa] externals/marginalia 327ad58 165/241: use aref instead of elt
Date: Fri, 28 May 2021 20:49:19 -0400 (EDT)

branch: externals/marginalia
commit 327ad58bd69a372dc10dbb5b5d3d47f246e28020
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]