[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/keycast f235bd8cb6 1/3: keycast--maybe-edit-local-format:
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/keycast f235bd8cb6 1/3: keycast--maybe-edit-local-format: Use keycast--tree-member |
Date: |
Sun, 25 Feb 2024 19:00:21 -0500 (EST) |
branch: elpa/keycast
commit f235bd8cb66d6ccc04d30bd07931d9da9f3cca9b
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
keycast--maybe-edit-local-format: Use keycast--tree-member
While we used `memq' we could end up adding an additional element.
Closes #33.
---
keycast.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/keycast.el b/keycast.el
index 55ffb37bd3..ccc0c072b4 100644
--- a/keycast.el
+++ b/keycast.el
@@ -452,8 +452,7 @@ t to show the actual COMMAND, or a symbol to be shown
instead."
(defun keycast--maybe-edit-local-format (format item record)
(let ((value (buffer-local-value format (current-buffer))))
- (unless (and (listp value)
- (memq item value))
+ (unless (keycast--tree-member item value)
(set record (cons (current-buffer) (symbol-value record)))
(set format (if (keycast--format-atom-p value)
(list "" item value)