branch: externals/consult
commit 3422f2909cf55141e788a0fe540f24562c84fa48
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use plist-get gv from Compat library
---
consult.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/consult.el b/consult.el
index 4cac150b7d..83afd2928c 100644
--- a/consult.el
+++ b/consult.el
@@ -548,12 +548,10 @@ We use invalid characters outside the Unicode range.")
(dolist (cmd cmds)
(cond
((and (boundp cmd) (consp (symbol-value cmd)))
- (set cmd (plist-put (symbol-value cmd) prop (eval form 'lexical))))
+ (setf (plist-get (symbol-value cmd) prop) (eval form 'lexical)))
((functionp cmd)
- (setf (alist-get cmd consult--customize-alist)
- (plist-put (alist-get cmd consult--customize-alist) prop form)))
- (t (user-error "%s is neither a Consult command nor a Consult source"
- cmd))))
+ (setf (plist-get (alist-get cmd consult--customize-alist) prop) form))
+ (t (user-error "%s is neither a Command command nor a source" cmd))))
nil)
(defmacro consult-customize (&rest args)
