diff options
| author | Karl Heuer <[email protected]> | 1994-11-16 01:14:23 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-11-16 01:14:23 +0000 |
| commit | 0598f773848cf8b07f6b8ead258302fa3c2c4678 (patch) | |
| tree | 02a6ad243459bf7884628c7dc8dc9c93fb6c0872 /src/eval.c | |
| parent | 81c1bd20f7a80735bca618e830a2ca248f714fa6 (diff) | |
(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 e48441b004..eafb9e84a6 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 |