[elpa] externals/consult 3422f2909c 1/3: Use plist-get gv from Compat library

[ELPA Syncer]

branch: externals/consult
commit 3422f2909cf55141e788a0fe540f24562c84fa48
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)