From 965fff2db0d15ddd074ede8efa030f9032d4f4eb Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 22 Jan 2023 05:09:27 +0100 Subject: Add :extended version check --- compat-macs.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compat-macs.el b/compat-macs.el index b46a410..4ba7cc1 100644 --- a/compat-macs.el +++ b/compat-macs.el @@ -97,6 +97,9 @@ REST are attributes and the function BODY." :body t) (lambda (extended obsolete body) (when (stringp extended) + (compat-macs--assert + (and (version< extended compat-macs--version) (version< "24.4" extended)) + "Invalid :extended version %s for %s %s" extended type name) (setq extended (version<= extended emacs-version))) (compat-macs--strict (eq extended (fboundp name)) "Wrong :extended flag for %s %s" type name) -- cgit v1.0