Skip to content

GitLab

Commit 0598f773 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Finteractive_p): Use XSUBR instead of its expansion.

parent 81c1bd20
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 2 deletions
src/eval.c
View file @ 0598f773
...@@ -484,8 +484,7 @@ and input is currently coming from the keyboard (not in keyboard macro).") ...@@ -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 /* If this isn't a byte-compiled function, there may be a frame at
the top for Finteractive_p itself. If so, skip it. */ the top for Finteractive_p itself. If so, skip it. */
fun = Findirect_function (*btp->function); fun = Findirect_function (*btp->function);
if (SUBRP (fun) if (SUBRP (fun) && XSUBR (fun) == &Sinteractive_p)
&& (struct Lisp_Subr *) XPNTR (fun) == &Sinteractive_p)
btp = btp->next; btp = btp->next;
/* If we're running an Emacs 18-style byte-compiled function, there /* If we're running an Emacs 18-style byte-compiled function, there
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment