[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 65f87c0 2/5: Fix consult-customize
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 65f87c0 2/5: Fix consult-customize |
Date: |
Tue, 1 Jun 2021 14:57:08 -0400 (EDT) |
branch: externals/consult
commit 65f87c0f1c35b212dab0c6941558df232eeacf8d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix consult-customize
---
consult.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/consult.el b/consult.el
index fbe19f0..32988ae 100644
--- a/consult.el
+++ b/consult.el
@@ -501,11 +501,11 @@ Size of private unicode plane b.")
"Set property PROP to VAL of commands CMDS."
(dolist (cmd cmds)
(cond
- ((commandp cmd)
+ ((and (boundp cmd) (consp (symbol-value cmd)))
+ (set cmd (plist-put (symbol-value cmd) prop val)))
+ ((functionp cmd)
(setf (alist-get cmd consult--read-config)
(plist-put (alist-get cmd consult--read-config) prop val)))
- ((boundp cmd)
- (set cmd (plist-put (symbol-value cmd) prop val)))
(t (user-error "%s is neither a Consult command nor a Consult source"
cmd))))
nil)