diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-03 18:24:20 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-03 18:24:20 +0100 |
| commit | 4aa07eac2241d155831aaf16d7aebd958ae2a041 (patch) | |
| tree | f45064dbfdc71f152e07039268d4a46ea0de6282 /compat-macs.el | |
| parent | 76c6d1cd0a0bc4860266ab86c0e30b392894e882 (diff) | |
Minor simplification
Diffstat (limited to 'compat-macs.el')
| -rw-r--r-- | compat-macs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compat-macs.el b/compat-macs.el index d3e5e3e..9a87032 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) |