mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/comp.el (comp-op-to-fun): Use `string-replace'.

Browse Source
This commit is contained in:
Andrea Corallo 2023-09-19 10:32:50 +02:00
parent fc7c1f1e93
commit 438d71e83b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/comp.el
View File

@ -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.