mu4e-helpers: check for key-valid-p

It's not available in older emacsen.
This commit is contained in:
Dirk-Jan C. Binnema
2024-03-15 19:35:30 +02:00
parent 52826aa758
commit a1001a915d

View File

@ -603,9 +603,9 @@ shorter keys in some cases where there are multiple bindings."
(defun mu4e-keymap-set (keymap key definition) (defun mu4e-keymap-set (keymap key definition)
"Set KEY to DEFINITION in KEYMAP. "Set KEY to DEFINITION in KEYMAP.
Temporary version, from Emacs 29." Temporary version, from Emacs 29."
(cl-assert (key-valid-p key)) (when (fboundp 'key-valid-p) (cl-assert (key-valid-p key)))
(when (stringp definition) (when (stringp definition)
(cl-assert (key-valid-p definition)) (when (fboundp 'key-valid-p) (cl-assert (key-valid-p definition)))
(setq definition (key-parse definition))) (setq definition (key-parse definition)))
(define-key keymap (key-parse key) definition)) (define-key keymap (key-parse key) definition))