branch: externals/consult
commit 65f87c0f1c35b212dab0c6941558df232eeacf8d
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
