From 438d71e83b7d51faf7ef2d11bea3d5fd743390f6 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 19 Sep 2023 10:32:50 +0200 Subject: [PATCH] * lisp/emacs-lisp/comp.el (comp-op-to-fun): Use `string-replace'. --- lisp/emacs-lisp/comp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index e1bb70fe5d4..a8567c5da00 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1851,7 +1851,7 @@ SP-DELTA is the stack adjustment." (eval-when-compile (defun comp-op-to-fun (x) "Given the LAP op strip \"byte-\" to have the subr name." - (intern (replace-regexp-in-string "byte-" "" x))) + (intern (string-replace "byte-" "" x))) (defun comp-body-eff (body op-name sp-delta) "Given the original BODY, compute the effective one. -- 2.39.2