diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-08-30 15:36:07 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-08-30 15:36:07 +0200 |
| commit | 999ef2a730fb2d2a633c7a86c4e012fadc1b66cc (patch) | |
| tree | a0e5a795919b40e62ad3ab2ba5417eccc04ef262 /compat-macs.el | |
| parent | 948535b0c758da5f00b3bc18af205c3ef933630a (diff) | |
Raise an error if the realname would be the same as the name
Diffstat (limited to 'compat-macs.el')
| -rw-r--r-- | compat-macs.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compat-macs.el b/compat-macs.el index c6417c8..cfd5d27 100644 --- a/compat-macs.el +++ b/compat-macs.el @@ -119,6 +119,8 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE." '(compat--ignore)) (`(when (and ,(if cond cond t) ,(funcall check-fn))))))) + (when (eq name realname) + (error "%S: Name is equal to realname" name)) (cond ((and (plist-get attr :prefix) (memq type '(func macro)) (string-match "\\`compat-\\(.+\\)\\'" (symbol-name name)) |