From b3cbdfc86474932e4ef8d1237ed100a6f4f4c854 Mon Sep 17 00:00:00 2001
From: Andrea Corallo
Date: Thu, 19 Dec 2019 11:06:38 +0100
Subject: add basic compilation unit into structure

---
 src/data.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/data.c')

diff --git a/src/data.c b/src/data.c
index 67613881d67..0a13569bc6d 100644
--- a/src/data.c
+++ b/src/data.c
@@ -870,7 +870,7 @@ DEFUN ("subr-native-elisp-p", Fsubr_native_elisp_p, Ssubr_native_elisp_p, 1, 1,
 nil otherwise.  */)
   (Lisp_Object object)
 {
-  return (SUBRP (object) && XSUBR (object)->native_elisp) ? Qt : Qnil;
+  return (SUBRP (object) && XSUBR (object)->native_comp_u) ? Qt : Qnil;
 }
 #endif
 
@@ -900,7 +900,7 @@ Value, if non-nil, is a list (interactive SPEC).  */)
   if (SUBRP (fun))
     {
 #ifdef HAVE_NATIVE_COMP
-      if (XSUBR (fun)->native_elisp && XSUBR (fun)->native_intspec)
+      if (XSUBR (fun)->native_comp_u && XSUBR (fun)->native_intspec)
 	return XSUBR (fun)->native_intspec;
 #endif
       const char *spec = XSUBR (fun)->intspec;
-- 
cgit v1.2.1