diff options
| author | Juri Linkov <juri@linkov.net> | 2022-11-17 09:38:59 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-11-17 09:38:59 +0200 |
| commit | 783c335623c5744ec3eda7913aeccfdd8aef4680 (patch) | |
| tree | 12e6101a4a5a8a75fbc1857c8cf3ed6c8557387c /lisp/keymap.el | |
| parent | ddbc33343cca8c66d841cc16eac77ea626e50e23 (diff) | |
| download | emacs-783c335623c5744ec3eda7913aeccfdd8aef4680.tar.gz | |
* lisp/keymap.el (defvar-keymap): Don't use pcase.
Diffstat (limited to 'lisp/keymap.el')
| -rw-r--r-- | lisp/keymap.el | 10 |
1 files 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)) |