[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