# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784948463 0
# Node ID c942c7e6ebbd8700b1c72f8f88067128bcdc5bca
# Parent  25a7e3557fd3cde03b06a5365cf79708862ffe4e
(Finteractive_p): Use XSUBR instead of its expansion.

diff -r 25a7e3557fd3 -r c942c7e6ebbd src/eval.c
--- a/src/eval.c	Wed Nov 16 01:03:33 1994 +0000
+++ b/src/eval.c	Wed Nov 16 01:14:23 1994 +0000
@@ -484,8 +484,7 @@
   /* If this isn't a byte-compiled function, there may be a frame at
      the top for Finteractive_p itself.  If so, skip it.  */
   fun = Findirect_function (*btp->function);
-  if (SUBRP (fun)
-      && (struct Lisp_Subr *) XPNTR (fun) == &Sinteractive_p)
+  if (SUBRP (fun) && XSUBR (fun) == &Sinteractive_p)
     btp = btp->next;
 
   /* If we're running an Emacs 18-style byte-compiled function, there