diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-11-16 01:14:23 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-11-16 01:14:23 +0000 |
commit | 1704906628cc7f8a611e11a38a7b556b7f31488c (patch) | |
tree | 97968811d779d8d9e4272812476e25ce7911791e /src/eval.c | |
parent | 5b592faff9390ba72f9cd28ecfb3eb2956478f85 (diff) | |
download | emacs-1704906628cc7f8a611e11a38a7b556b7f31488c.tar.gz |
(Finteractive_p): Use XSUBR instead of its expansion.
Diffstat (limited to 'src/eval.c')
-rw-r--r-- | src/eval.c | 3 |
1 files changed, 1 insertions, 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 |