* Fix defsubst missing inline Bug#42664

	* lisp/emacs-lisp/byte-run.el (defsubst): Do not native compile
	defsubsts to have them always effective.

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 4c1dce264a7eb8a0c003da9579dc8ad56832817a..539846683f056cee4e8d3c5eb7751902bcbbcb72 100644 (file)
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -364,7 +364,12 @@ You don't need this.  (See bytecomp.el commentary for more details.)
            '(nil byte-compile-inline-expand))
       (error "`%s' is a primitive" name))
   `(prog1
-       (defun ,name ,arglist ,@body)
+       (defun ,name ,arglist
+         ;; Never native-compile defsubsts as we need the byte
+         ;; definition in `byte-compile-unfold-bcf' to perform the
+         ;; inlining (Bug#42664).
+         (declare (speed -1))
+         ,@body)
      (eval-and-compile
        (put ',name 'byte-optimizer 'byte-compile-inline-expand))))