From 783c335623c5744ec3eda7913aeccfdd8aef4680 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 17 Nov 2022 09:38:59 +0200 Subject: [PATCH] * 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 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)) -- 2.39.2