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

diff --git a/lisp/keymap.el b/lisp/keymap.el
index 953fb233cbc52ca1fa626c89d5015f000077ebfd..0285c0571f7033e063c3b2fe1e3227d22a30fcbf 100644 (file)
--- 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))