procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2022-11-17 09:38:59 +02:00
parent ddbc33343c
commit 783c335623
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/keymap.el
View file

@ -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))