branch: externals/compat
commit 729c5492dfafec3e10c7e53df04d14149194ac47
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-macs: Minor simplification
---
compat-macs.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index 4279df6b9c..02ea7e03ba 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -102,13 +102,13 @@ DEF-FN, INSTALL-FN, CHECK-FN and ATTR."
(error "%S: Name is equal to realname" name))
(cond
((and (plist-get attr :prefix)
- (let* ((actual-name (intern (substring (symbol-name name)
- (length "compat-"))))
- (body (funcall install-fn actual-name version)))
+ (let ((actual-name (intern (substring (symbol-name name)
+ (length "compat-")))))
(when (and (version<= version emacs-version)
(fboundp actual-name)
check)
- `(,@check ,(compat--with-feature feature body))))))
+ `(,@check ,(compat--with-feature feature
+ (funcall install-fn actual-name version)))))))
((plist-get attr :realname)
`(progn
,(funcall def-fn realname version)
