From 711b2c834976e41ca2c9c36dafcc9977eb4f398b Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 10 Mar 2021 15:56:05 +0100 Subject: [PATCH] * lisp/loadup.el: Don't load pcase on native builds (bug#47025). --- lisp/loadup.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/loadup.el b/lisp/loadup.el index 5b39152482e..f65f7f1d30a 100644 --- 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 -- 2.39.5