From 0598f773848cf8b07f6b8ead258302fa3c2c4678 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Nov 1994 01:14:23 +0000 Subject: [PATCH] (Finteractive_p): Use XSUBR instead of its expansion. --- src/eval.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/eval.c b/src/eval.c index e48441b0043..eafb9e84a65 100644 --- a/src/eval.c +++ b/src/eval.c @@ -484,8 +484,7 @@ and input is currently coming from the keyboard (not in keyboard macro).") /* 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 -- 2.39.5