branch: externals/compat
commit 4aa07eac2241d155831aaf16d7aebd958ae2a041
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Minor simplification
---
compat-macs.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index d3e5e3e088..9a8703202d 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -94,8 +94,8 @@ DEF-FN, INSTALL-FN, CHECK-FN and ATTR."
(error "%S: Name is equal to realname" name))
(cond
((and (plist-get attr :prefix)
- (string-match "\\`compat-\\(.+\\)\\'" (symbol-name name))
- (let* ((actual-name (intern (match-string 1 (symbol-name name))))
+ (let* ((actual-name (intern (substring (symbol-name name)
+ (length "compat-"))))
(body (funcall install-fn actual-name version)))
(when (and (version<= version emacs-version)
(fboundp actual-name)
