diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-22 05:09:27 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-22 05:09:27 +0100 |
| commit | 965fff2db0d15ddd074ede8efa030f9032d4f4eb (patch) | |
| tree | b2f33e61eb5bcd6a483dd934b9d2cd34e07bff86 | |
| parent | 31d1ad38f48f024101ad4eb5d78a3cfd41c03253 (diff) | |
Add :extended version check
| -rw-r--r-- | compat-macs.el | 3 |
1 files changed, 3 insertions, 0 deletions
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) |