From a248dfe2c3341ed73de38c2feea64ec12f053aaa Mon Sep 17 00:00:00 2001
From: Andrea Corallo
Date: Sat, 7 Dec 2019 18:19:00 +0100
Subject: native compile interactive functions support

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

(limited to 'src/data.c')

diff --git a/src/data.c b/src/data.c
index 50dce9e4644..67613881d67 100644
--- a/src/data.c
+++ b/src/data.c
@@ -899,6 +899,10 @@ 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)
+	return XSUBR (fun)->native_intspec;
+#endif
       const char *spec = XSUBR (fun)->intspec;
       if (spec)
 	return list2 (Qinteractive,
-- 
cgit v1.2.1