[elpa] externals/compat 4aa07eac22 3/4: Minor simplification

[ELPA Syncer]

branch: externals/compat
commit 4aa07eac2241d155831aaf16d7aebd958ae2a041
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)