diff options
| author | Stefan Monnier | 2025-07-17 12:36:16 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2025-07-17 12:36:57 -0400 |
| commit | f8b9d80ec6831671466000ba6dc0300a1577db0a (patch) | |
| tree | 61266d26582a0f33dd2566531f12024581265f92 /src/data.c | |
| parent | 462a541db904405ede8446c48ba0c71ad41c544d (diff) | |
| download | emacs-f8b9d80ec6831671466000ba6dc0300a1577db0a.tar.gz emacs-f8b9d80ec6831671466000ba6dc0300a1577db0a.zip | |
comp.el: Fix minor corner-case annoyances
* lisp/emacs-lisp/comp.el (comp--native-compile): Avoid `%s`
on objects that may not have names.
* src/data.c (Ffset): Don't compute trampoline for no-op `fset`.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 5d1c065e785..493a8dd63fc 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -904,8 +904,9 @@ signal a `cyclic-function-indirection' error. */) | |||
| 904 | 904 | ||
| 905 | if (!NILP (Vnative_comp_enable_subr_trampolines) | 905 | if (!NILP (Vnative_comp_enable_subr_trampolines) |
| 906 | && SUBRP (function) | 906 | && SUBRP (function) |
| 907 | && !NATIVE_COMP_FUNCTIONP (function)) | 907 | && !NATIVE_COMP_FUNCTIONP (function) |
| 908 | calln (Qcomp_subr_trampoline_install, symbol); | 908 | && !EQ (definition, Fsymbol_function (symbol))) |
| 909 | calln (Qcomp_subr_trampoline_install, symbol); | ||
| 909 | #endif | 910 | #endif |
| 910 | 911 | ||
| 911 | set_symbol_function (symbol, definition); | 912 | set_symbol_function (symbol, definition); |