mu4e-helpers: fix mu4e-keymap-set for older emacs

This commit is contained in:
Dirk-Jan C. Binnema
2024-03-15 20:08:54 +02:00
parent 4564db845a
commit a6c78ab133

View File

@ -605,8 +605,8 @@ shorter keys in some cases where there are multiple bindings."
Temporary version, from Emacs 29." Temporary version, from Emacs 29."
(when (fboundp 'key-valid-p) (cl-assert (key-valid-p key))) (when (fboundp 'key-valid-p) (cl-assert (key-valid-p key)))
(when (stringp definition) (when (stringp definition)
(when (fboundp 'key-valid-p) (cl-assert (key-valid-p definition))) (when (or (not (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))
(provide 'mu4e-helpers) (provide 'mu4e-helpers)