* lisp/loadup.el: Don't load pcase on native builds (bug#47025).

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 5b39152482efc0d5c2a26ab8a921269c3af6ecd0..f65f7f1d30a91d87242a03eb23991fecd6326f9d 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -157,7 +157,8 @@
 ;; Load-time macro-expansion can only take effect after setting
 ;; load-source-file-function because of where it is called in lread.c.
 (load "emacs-lisp/macroexp")
-(if (byte-code-function-p (symbol-function 'macroexpand-all))
+(if (or (byte-code-function-p (symbol-function 'macroexpand-all))
+        (subr-native-elisp-p (symbol-function 'macroexpand-all)))
     nil
   ;; Since loaddefs is not yet loaded, macroexp's uses of pcase will simply
   ;; fail until pcase is explicitly loaded.  This also means that we have to