master 783c335623: * lisp/keymap.el (defvar-keymap): Don't use pcase.

[Juri Linkov]

branch: master
commit 783c335623c5744ec3eda7913aeccfdd8aef4680
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/keymap.el (defvar-keymap): Don't use pcase.
---
 lisp/keymap.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/keymap.el b/lisp/keymap.el
index 953fb233cb..0285c0571f 100644
--- a/lisp/keymap.el
+++ b/lisp/keymap.el
@@ -582,11 +582,11 @@ symbol property on its symbol.
       (let ((keyword (pop defs)))
         (unless defs
           (error "Uneven number of keywords"))
-        (pcase keyword
-          (:doc (setq doc (pop defs)))
-          (:repeat (setq repeat (pop defs)))
-          (_ (push keyword opts)
-             (push (pop defs) opts)))))
+        (cond
+         ((eq keyword :doc) (setq doc (pop defs)))
+         ((eq keyword :repeat) (setq repeat (pop defs)))
+         (t (push keyword opts)
+            (push (pop defs) opts)))))
     (unless (zerop (% (length defs) 2))
       (error "Uneven number of key/definition pairs: %s" defs))