[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached 172a041c3c 3/4: Remove unnecessary quotes in p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached 172a041c3c 3/4: Remove unnecessary quotes in plist-get |
Date: |
Thu, 1 Sep 2022 14:57:41 -0400 (EDT) |
branch: externals/detached
commit 172a041c3c7913eb6397f28406d34e97b968bd3d
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Remove unnecessary quotes in plist-get
---
detached.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/detached.el b/detached.el
index ec901cf371..59cfcb5903 100644
--- a/detached.el
+++ b/detached.el
@@ -628,8 +628,8 @@ Optionally SUPPRESS-OUTPUT."
(seq-map #'detached--session-command)
(seq-map #'length)
(seq-max)
- (min (plist-get detached-command-format ':width)))))
- (let ((command-fun (plist-get detached-command-format ':function)))
+ (min (plist-get detached-command-format :width)))))
+ (let ((command-fun (plist-get detached-command-format :function)))
(setq detached--session-candidates
(thread-last sessions
(seq-map (lambda (it)
@@ -1368,8 +1368,8 @@ If event is cased by an update to the `detached'
database, re-initialize
(defun detached--annotation-width (sessions annotation)
"Determine width for ANNOTATION based on SESSIONS."
- (let ((annotation-fun (plist-get annotation ':function))
- (width (plist-get annotation ':width)))
+ (let ((annotation-fun (plist-get annotation :function))
+ (width (plist-get annotation :width)))
`(,annotation-fun .
,(thread-last sessions
(seq-map annotation-fun)