1 files changed, 3 insertions, 1 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 648813aed86..3267c7c8c76 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1579,7 +1579,9 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
          NEXT;
        CASE (Binteractive_p):  /* Obsolete since 24.1.  */
-          PUSH (Finteractive_p ());
+          BEFORE_POTENTIAL_GC ();
+          PUSH (call0 (intern ("interactive-p")));
+          AFTER_POTENTIAL_GC ();
          NEXT;
        CASE (Bforward_char):

diff --git a/src/bytecode.c b/src/bytecode.c index 648813aed86..3267c7c8c76 100644 --- a/src/bytecode.c +++ b/src/bytecode.c
@@ -1579,7 +1579,9 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
1579	NEXT;	1579	NEXT;
1580		1580
1581	CASE (Binteractive_p): /* Obsolete since 24.1. */	1581	CASE (Binteractive_p): /* Obsolete since 24.1. */
1582	PUSH (Finteractive_p ());	1582	BEFORE_POTENTIAL_GC ();
		1583	PUSH (call0 (intern ("interactive-p")));
		1584	AFTER_POTENTIAL_GC ();
1583	NEXT;	1585	NEXT;
1584		1586
1585	CASE (Bforward_char):	1587	CASE (Bforward_char):