From: Juri Linkov <juri@linkov.net>
Date: Thu, 17 Nov 2022 07:38:59 +0000 (+0200)
Subject: * lisp/keymap.el (defvar-keymap): Don't use pcase.
X-Git-Tag: emacs-29.0.90~1616^2~122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=783c335623c5744ec3eda7913aeccfdd8aef4680;p=emacs.git

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

diff --git a/lisp/keymap.el b/lisp/keymap.el
index 953fb233cbc..0285c0571f7 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))