From 5c996471babfca2ac54591f7182d31fe7df151f0 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 19 Oct 2021 04:50:59 +0200 Subject: Error out on invalid `define-keymap' keywords * lisp/subr.el (define-keymap--define): Error out on invalid keywords (bug#51268). * lisp/emacs-lisp/byte-opt.el (byte-optimize-define-keymap): Check keywords at compile time. * lisp/vc/cvs-status.el (cvs-status-mode-map): Fix keyword. --- lisp/emacs-lisp/byte-opt.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index abfc9b3b316..9b3b2e5ce14 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1211,6 +1211,9 @@ See Info node `(elisp) Integer Basics'." (while (and form (keywordp (car form)) (not (eq (car form) :menu))) + (unless (memq (car form) + '(:full :keymap :parent :suppress :name :prefix)) + (error "Invalid keyword: %s" (car form))) (push (pop form) result) (when (null form) (error "Uneven number of keywords in %S" form)) -- cgit v1.2.3