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

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

[elpa] externals/marginalia dbcd87e 1/2: Use bookmark-get-* instead of a


From: ELPA Syncer
Subject: [elpa] externals/marginalia dbcd87e 1/2: Use bookmark-get-* instead of alist-get (#106)
Date: Sun, 5 Sep 2021 13:57:16 -0400 (EDT)

branch: externals/marginalia
commit dbcd87e92d2d5a4b780eab7eebdd08e35e29bf54
Author: Sylvain Rousseau <thisirs@gmail.com>
Commit: GitHub <noreply@github.com>

    Use bookmark-get-* instead of alist-get (#106)
---
 marginalia.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 0aa5d6f..b46fac0 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -691,7 +691,7 @@ keybinding since CAND includes it."
   "Return bookmark type string of BM.
 
 The string is transformed according to 
`marginalia-bookmark-type-transformers'."
-  (let ((handler (or (alist-get 'handler bm) 'bookmark-default-handler)))
+  (let ((handler (or (bookmark-get-handler bm) 'bookmark-default-handler)))
     ;; Some libraries use lambda handlers instead of symbols. For
     ;; example the function `xwidget-webkit-bookmark-make-record' is
     ;; affected. I consider this bad style since then the lambda is
@@ -706,11 +706,11 @@ The string is transformed according to 
`marginalia-bookmark-type-transformers'."
 
 (defun marginalia-annotate-bookmark (cand)
   "Annotate bookmark CAND with its file name and front context string."
-  (when-let ((bm (bookmark-get-bookmark-record (assoc cand bookmark-alist))))
-    (let ((front (alist-get 'front-context-string bm)))
+  (when-let ((bm (assoc cand bookmark-alist)))
+    (let ((front (bookmark-get-front-context-string bm)))
       (marginalia--fields
        ((marginalia--bookmark-type bm) :width 10 :face 'marginalia-type)
-       ((alist-get 'filename bm) :truncate 40 :face 'marginalia-file-name)
+       ((bookmark-get-filename bm) :truncate 40 :face 'marginalia-file-name)
        ((if (or (not front) (string= front ""))
             ""
           (concat (string-trim



reply via email to

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