mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

comp.el: Fix minor corner-case annoyances

Browse source 
* 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`.
This commit is contained in:
Stefan Monnier 2025-07-17 12:36:16 -04:00
parent 462a541db9
commit f8b9d80ec6
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp.el
View file

@ -3561,7 +3561,7 @@ the deferred compilation mechanism."
for pass in comp-passes
unless (memq pass comp-disabled-passes)
do
(comp-log (format "\n(%s) Running pass %s:\n"
(comp-log (format "\n(%S) Running pass %s:\n"
function-or-file pass)
2)
(setf data (funcall pass data))
@ -3570,7 +3570,7 @@ the deferred compilation mechanism."
do (funcall f data))
finally
(when comp-log-time-report
(comp-log (format "Done compiling %s" data) 0)
(comp-log (format "Done compiling %S" data) 0)
(cl-loop for (pass . time) in (reverse report)
do (comp-log (format "Pass %s took: %fs."
pass time)
@ -3582,7 +3582,7 @@ the deferred compilation mechanism."
(if (and comp-async-compilation
(not (eq (car err) 'native-compiler-error)))
(progn
(message "%s: Error %s"
(message "%S: Error %s"
function-or-file
(error-message-string err))
(kill-emacs -1))

5
src/data.c
View file

@ -904,8 +904,9 @@ signal a `cyclic-function-indirection' error. */)
if (!NILP (Vnative_comp_enable_subr_trampolines)
&& SUBRP (function)
&& !NATIVE_COMP_FUNCTIONP (function))
calln (Qcomp_subr_trampoline_install, symbol);
&& !NATIVE_COMP_FUNCTIONP (function)
&& !EQ (definition, Fsymbol_function (symbol)))
calln (Qcomp_subr_trampoline_install, symbol);
#endif
set_symbol_function (symbol, definition);