diff options
| author | Andrea Corallo | 2023-09-19 10:32:50 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2023-09-19 11:46:19 +0200 |
| commit | 438d71e83b7d51faf7ef2d11bea3d5fd743390f6 (patch) | |
| tree | 1bded00750e835ffc0e80961d67a1de48756ec90 | |
| parent | fc7c1f1e93e48ea17657da247590439bff831798 (diff) | |
| download | emacs-438d71e83b7d51faf7ef2d11bea3d5fd743390f6.tar.gz emacs-438d71e83b7d51faf7ef2d11bea3d5fd743390f6.zip | |
* lisp/emacs-lisp/comp.el (comp-op-to-fun): Use `string-replace'.
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1851 | (eval-when-compile | 1851 | (eval-when-compile |
| 1852 | (defun comp-op-to-fun (x) | 1852 | (defun comp-op-to-fun (x) |
| 1853 | "Given the LAP op strip \"byte-\" to have the subr name." | 1853 | "Given the LAP op strip \"byte-\" to have the subr name." |
| 1854 | (intern (replace-regexp-in-string "byte-" "" x))) | 1854 | (intern (string-replace "byte-" "" x))) |
| 1855 | 1855 | ||
| 1856 | (defun comp-body-eff (body op-name sp-delta) | 1856 | (defun comp-body-eff (body op-name sp-delta) |
| 1857 | "Given the original BODY, compute the effective one. | 1857 | "Given the original BODY, compute the effective one. |