Mercurial > emacs

diff src/eval.c @ 9959:c942c7e6ebbd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Finteractive_p): Use XSUBR instead of its expansion.
author Karl Heuer <kwzh@gnu.org>
date Wed, 16 Nov 1994 01:14:23 +0000
parents ac852c183fa1
children 512a84fb3c75
line wrap: on
line diff
--- 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